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Microcomputadares, periftricos e tudo para in/ormdtico a nfvel pessoal e empresartal. 

Essas sOo as portas do admtavel mundo nova. Um mundo onde voci chega 
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-J^ O SISTEMA 

«JTt OPERACIONAL DO 

ZX81 (II) — Renato Degiovani 
da prosseguimento a seu artigo. 
desta vez enfocandu retinas, 
tabelas e programacao BASIC. 



^Q GRAN MAGO Z80 — 
OO Revele o magico que 
existe em seu microcomputador 
atraves deste programa-truque 
de adivinhacao escrito por 
Jose Rafael Sommerfeld. 



-I J CONSULTE O I CHING — Programa de 
!.£ Luiz Gonzaga de Alvarenga. 



DIG A SEU NOME . . . O MICRO LHE DIRA 
|^ QU™ ES — Programa de David 
Abramowicz. 
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A*} III FEIRA 

TtO INTERNACIONAL DE 

INFORMATICA — 16 paginas de 
novidades e lancamentos. 
Os principals flashes da Feira de 
Informal ica deste ano. 

7f| FACA DE SEU CP-500 
/ 1/ UMA MAQUINA DO 
TEJVBPO — O CP-500 a frente do 
liga-desliga de seus 
equipamentos eletronicos — uma 
interface especialmente bolada 
por Roberto Quito de Sant'Anna. 



^A O ALVO ATRAS DA MONTANHA — 

/ * Programa de Rudolfo Horner Junior. 

"Jf. BIORRITMO NO MICRO — Programas de 



20 

28 



O MICRO PSICOLOGO — Programa de 
Antonio Macchi Jr. 



BASIC E ASSEMBLER: QUEM E QUEM 
NO APPLE — Artigo de Evandro 
Mascarenhas de Oliveira. 
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Francisco Luiz Farias Bezerra. 



HP-41CV E O HOROSCOPO DO DIA — 
Programa de Joao Lucio Duarte. 



^|| ALIEN, O INVASOR — Programa de 



Qf\ O PROGRAMA INVISIVEL — Artigo de 
OU Newton Braga Junior. 

Q^ SETE TRUQUES MAGICOS ~ Programas 



Bruno Barasch. 



RADIOAMADOR: ORIENTE-SE, 
*\y MACANUDO! — Programa de Roberto 
Quito de Sant'Anna, 

^ A O MICRO ENTRE OS ASTROS DO 
q4 ZODlACO — Artigo de Luiz Roberto 
Barbosa de Oliveira. 
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de Antonio Faleiro. 



RESET: DESLIGANDO A UCP DO MICRO 

— Artigo de Manuel Maria C P. de Castello. 



PROGRAME A SENHA E TCHAU 
OQ ABELHUDOS! — Artigo de Mario Luiz 
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• O aniversario da SEI. comemorado 
no mes de outubro, certamente trou- 
xe algum esclarecimento no tocante 
a certos aspectos da Politica de Infor- 
matica. Na ocasiao, segundo o Secre- 
tirio de Informatica Joubert de Oli- 
veira Brizida, passaram-se em revista 
quatro anos de atuagao. 

E la estavam os Generais Danilo 
Venturini e Oct£vio Medeiros. A pre- 
senga dos dois Ministros de Estado 
na comemoragao demonstra o forte 
apoio que vem sendo dado ao setor, 
alem de sugerir maior tranquilidade 
aos que vem se inquietando no que 
diz respeito a manutengao da reserva 
de mercado para a area de minis e 
microcomputadores. 

Tambem a participagao do sena- 
dor Marco Maciel, na ocasiao home- 
nageado como "amigo da SEI", nos 
faz lembrar a realizacao do Simpo- 
sio de informatica no Senado Fe- 
deral, quando a Politica desenvolvida 
pelo Governo obteve franco apoio dos 
partidos politicos, de uma maneira 
geral. 

A Politica de Informatica, ana's, 
vem desempenhando urn importante 
papel no momento, como elemento 



de uniao dos mais diversos interesses 
e setores produtivos de nossa socie- 
dade. Virou uma especie de compro- 
misso. Tanto se falou e demonstrou, 
de forma explicita ou nao, que sua 
linha seria mantida, que ela pode, 
hoje, ser vista como um ponto de 
honra. 

• Secretario de Informatica reco- 
nhece que "a Nagao brasileira da ir- 
refutaveis provas de que esta adequa- 
damente preparada para decidir so- 
bre os rumos da informatizagao de 
nossa sociedade". 

O senador Maciel esta certo de 
que o Pais ha de assegurar "o seu 
desenvolvimento auto-sustentado, (...) 
trilhando o caminho da capacitagao 
cientifica e tecnoldgica". 

O Ministro Danilo Venturini alerta 
que "se nao madrugarmos para a era 
da Informatica, corremos o risco de 
nao deixarmos para os que vem de- 
pots um Brasil atualizado". E cha- 
ma amda atengao para o essencial 
papel a ser exercido pela comunida- 
de academica neste processo ao nao 
aceitar que "sem a pesquisa e capa- 
cidade criativa dos laboratorios das 
Universidades se possa chegar a co- 



locar o computador a servigo do ho- 
mem". 

• E um compromisso. Garantido por 
todos que o tern assumido, na defesa 
de uma Politica que busque o estudo, 
absorgao, capacitagao e desenvolvi- 
mento tecnologico dentro de nosso 
Pais. Garantido principalmente, lem- 
bra Jose Maria Teixeira Sobrinho, Pre- 
sidente da Assespro Nacional, pela 
comunidade, "que e quern da forga 
ao modelo". 

A reserva de mercado e apenas 
um aspecto desta tentativa nacional 
de capacitagao tecnoldgica, e tam- 
bem esta garantida, temporariamente, 
dizem as autoridades, ate que nossa 
industria esteja madura o suficiente 
para alcangar niveis competitivos de 
produtividade. Segue-se agora o pe- 
riodo de discussao democratica em 
torno dos parametros que definirao 
tal ponto de maturidade. 

• E nao havendo muito mais o que 
especular acerca de uma Politica /a 
tao definida, convido os leitores para 
o espetaculo que MS traz neste nu- 
mero: consultas ao I Ching e aos 
astros; previsoes e truques de m£- 
gica. Boa leitura. 
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Enxadrista experiente, Luciano Nilo de An- 
drade j4 escreveu para os jornais "Correio da 
Manha". "Data News" e "Ultima Hora" e pa- 
ra a revista "Fatos & Fotos". Luciano 6 econo- 
mixta, trabalhando no Minist6rio da Fazenda, 
no Rio de Janeiro. As opinides e comentirios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
pu tad ores, e star So sempre presentes em 
MICRO SISTEMAS. 



Micro empata com 
o campeao mundial 



E~J xtraordinario resultado conse- 
guiu o Mephisto III, novo mi- 
cro ja" disport fvel no exterior, 
ao empatar com Anatoly Karpov, cam- 
peao mundial. Esta facanha ocorreu em 
Munique, no dia 1 de setembro de 1983, 
por ocasiao de uma simultanea dada 
nessa cidade contra 20 jogadores e um 
micro. 

£ verdade que o fator sorte, a favor 
do micro, livrou-o da derrota certa 
quando da jogada 20 — B4D(?). Tivesse 
Karpov jogado 20 — P4CR, o desfecho 
seria outro. 

A partida que teve esse singular resul- 
tado, a seguir reproduzida, foi realizada 
segundo o procedimento usual das simul- 
taneas. Isto 6, as jogadas do Mephisto III 
eram feitas sempre que o simultanista 
passava defronte de seu tabuleiro. Com 
esta finalidade, era ent2o pressionada a 
tecla INTERRUPT para que a resposta 
fosse indicada, mesmo que o micro ain- 
da estivesse pensando. £ provavel que, 
se Ihe fosse permitido utilizar seu tempo 
normal, as jogadas tivessem sido melho- 
res. resultado final obtido pelo simul- 
tanista foi de 19 vitorias e dois empates. 

Karpov x Mephisto 
Simultanea, Munique, 1/9/1983 
Ruy Lopez — Defesa Berlinense 

1 - P4R P4R; 2 - C3BR C3BD; 
3 - BBC C3B; 4-0-0 CxP; 5 - P4D 



PxP. As pretas jogam uma defesa 
utilizada com frequencia ate o ini'cio do 
seculo, hoje considerada inferior; a 
captura do peao, em vez de 5 — . . . 
B2R, deixara as pretas vulneraveis a um 
ataque frontal. 6 - T1R P4B; 7 - CxP 
CxC; 8 — DxC. A pressao das brancas ja 
e sensfvel. Elas ameacam capturar o 
cavalo com P3BR. 8 - . . . R2B; 9 

- B4B+ P4D; 10 - BxP+ B3R; 11 

- BxB+ RxB. Parece que as pretas ten- 
tam induzir as brancas a arriscar a 
captura do cavalo com sequencia 12 — 
DxD TxD; 13 - P3B B4B+; 14 - RIB. 
B7B; 15 - PxC BxT; 16 - PxP+ RxP; 

17 - RxB T (1T) iR+; 18 - R2B T1D, 
com compensacoes pelo material per- 
dido. 12 - TxC+ PxT; 13 - DxP+ 
R3B; 14 - C3B forcado 14 - . . . P3B; 
15-B3R B2R; 16-T1R D2D; 17 - 
D4B+ R3C. Se 17 - . . . D4B, entao 18 

- B4D + R3C; 19 - DxD RxD; 20 - 
TxD, com vantagem material ganhadora. 

18 — P4TR — Karpov continua asse- 
diando o rei negro. objetivo 6 entregar 
o peao com 19 - P5T+ RxP; 20 - 
D7B+ P3CR; 21 - B4B com muitas 
ameacas. Se21 -... TD1B, entao 22 - 
T5R+ R5C; 23 - P3B+ R5T; 24 - 
P3CR+ R6T; 25 - T5T+ PxT; 26 

- DxP+ B5T; 27 - DxB matel 18 

- . . .D4B oferecendo a troca de damas. 
Tambem era possfvel B3B. 19 - P5T+ 
DxP; 20 - B4D(?). O correto seria 20 - 
P4CR\ D4T, mas precisam evitar D5B 



mate; 21 - P4CD ! BxP; 22 - B6C\ PxB; 
23 - T6R mate\ 20 - . . . B6B; 21 - 
P4CR D4CR; 22 - D4R+ R2B e Karpov 
optou pelo empate com repeticoes de 
jogadas por nao ver razao para conti- 
nuar. Um empate tornado sucesso para 
o Mephisto III : 23 - D6R + R2B; 24 - 
D4R+ R2B; 25 — D7B+ empate. 

O Mephisto III 

Mephisto III, aparelho alemao, e 
vendido em Londres por £ 260,00, 
mercado onde os precos sab notoria- 
mente mais elevados que os de Nova 
lorque. Ele 6 uma versao melhorada do 
Mephisto II, mantendo, porem, a mesma 
aparencia. O programa do Mephisto III 
tern 32Kb, enquanto o do Mephisto II 
tern 16Kb. 

Segundo avaliacao do seu fabricante, 
o Mephisto III 6 o melhor micro da 
atualidade. A facilidade de compre-lo 
sem o tabuleiro sensorizado torna seu 
preco bem menor que o de outros mi- 
cros de sua categoria, como por exem- 
plo, o Prestige (£ 880,00) ou o Elite 
(£370,00). 

Ainda segundo seu fabricante, ele 6 
capaz de analisar 19 jogadas (9 de seu 
adversano e 10 suas) quando ocorrerem 
capturas ou xeques. Preve 10 a 15 joga- 
das na fase de meio e sua forca avaliada 
6 de ELO 2000. 



E capaz de jogadas vivas e elaborados 
recursos estrategicos, tanto no ataque 
quanto na defesa. Esta" aferta para ava- 
liar o valor da estrutura de pedes antes e 
depois do toque, bem como o conceito 
de peao passado e do peao isolado. 

Promove o peao na peca que julgar 
melhor, avail a a posicab e a prof und Ida- 



de de sua analise — o que permitira ao 
jogador melhorar seu jogo — e ainda dis- 
poe de, aproximadamente, 500 linhas de 
aberturas e suas transposicoes! 

E ad mi rive I a lista de coisas que pro- 
mete fazer, So futuras atuacdes do 
Mephisto III permitirao separara ufania 
da realidade. 




Diagram! A - Posicio depois de 13 - D*P+. 
Karpov entregou a quatidade para despir o r»i 
negro de suas defesas. Nesta altura, a vide do 
rei negro vale muito pouco. 



Diagrama B - Posicio depois de 19 — PST+ 
DxP. As pretas estariam perdidas depois de 
20 - P4CRL Karpov cochilou e as pretas 
arrancaram um empate. 
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♦Compuiadores © perilericos com os 
melhores precos 

|*Garantia de 1 ano e cursos gratuitos 

•Software aplicativo para computadores 
da linha APPLE e TRS-80 

♦Automacao de cllnlcas, escrit6rios > 
moteis, controle de producao, etc.. 



fiua0f*lia,248 - Fonea: 211-42S1 •212-4527. 



Impressora 

Matricial 

Elgin Lady 



VetocicJade de impressao 100 cps 
132coliirt3sa lOcpi 




ELETRDNICfl 



A impressora Elgin Lady e o novo padrlo para aplicacoes profissionals 

em seu computadof pessoal ou fnicroeomputador. 

Com velocidade de 100 CPS, os caracteres impresses em matrtz de pontos 

no formato 9x7, sao de alta resoluclo. Com capacidade de 132 colunas, 

comporta ate 264 caracieres/linha, 

Atraves de uma tecla. em modo conversacional, 18 funcoes s3o disponfveis 

para compteta definicao do formato de impressSo, 

entre as quais 1 1 funcoes podem ser programadas via software. 

Com o modulo Elgingraph, a impressora Bgin Lady 

constitui a melhor escolha para seu microcomputador, 

em aplicacoes que requerem total flexibilidade grafica 

atraves de caracteres semi-graficos ou funcoes graficas 

com enderecamento a nivel de agulhas. 

As interfaces, imercambiaveis a nfvel de operador, 

capacltam a Elgin Lady a uma serie de diferentes conexdes 

com a maioria dos microcomputadores 

e sistemas disponiveis no mercado. 



Uma Oivtaao da ELGIN MAOUtNAS S A 
Rua Birao de CantHnat, 305 
CEP01201 Tol 220-J6H 
T«ex Id « 1 ) 37805 - ELGJ 8R 
Fabrica tm Mn ttaa Cwitt ■ 5R 
FawiaaABtCOMP 




CwlMCa a iw^a S«0 Paulo (Capital) * COMPUSHOP - 2«2'900* • COMPUTERLAND - 231-3277 • OOMPUTIOUE - 23t-3922 » COMPUTE - 231-1 173 • COPEC - 67-6369 • EQUUPA 

Eiiwi tady am 270-756S . (MARES - 861 -0200 ♦ SEHVIWEC - 222-1 51 1 • MlCftOSHOP - 262-2106 * OPT INFORMATjCA - 280-2966 * SACCO ■ 6H-0698 • TiGEH - 2i2'9522 

• Campinas rSP) * COMPUTiQUf - 32-6322 * Rio de Janeiro iflJl « ClAPPY - 253-3395 • COMPUTIQUE - 267-1093 • TECNITRGH . 233-9670 * Sato Horlzonte 
(MG> • COMPLICITY ■ 226-6336 - Mottles Cl»f04 IMG) » LOGO INFORMATICA - 22t-2599 • Porto Al«flr« (RSJ • ADVANCING ■ 26-1 1W • COMPLfMlOiA - 22-5061 
» INFORMATiOUE - 2141B9 • efa»lMa • COVPUSHOW 2732128 
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Datalife 



Verbatim 



ENTREGA IMEDIATA 



FD 34-9.000 


Simples face/simples densidade 

26 setores 

128 bytes/ sector. 8polegadas 


FD 34-8.000 


Simples face/dupla densidade. 
Nao setorizado - nao formatado 
8 polegadas 


DD 34-4001 


Dupla face/dupla densidade. 
Nao setorizado - nao (ormatado 
8 polegadas 


MD 525-01 


Simples face/dupla 

densidade 40 trilhas 51/4 polegadas 


MD 550-01 


Dupla face/dupla 

densidade 40 trilhas 5 1/4 polegadas 



Datalife 100% livre de erros 





CENTRAL DEVENDAS: 

<\v. Amolfo de Azevedo. 108 - Pacaembu 

PABX (011) 262-5577 - Telex (011) 34545 

CEP 01236 - Sao Paulo 

Filial Rio: Praia do Flamengo. 66 cj: 1519 
Tel: (021) 205-3849 - 225-3469 

encomendas fora de Sao Paulo: 

UGUE DIRETO GRATIS 

(011)800-8462 



PRODUZIDO NA 
ZONA FRANCA DE MANAUS 

signitica: qualidade com 5 anos de garantia 
e o melhor preco do mercado. 

Revendedores e fabricantes interessados: 
Tel: (011)262-5332 



MANAUS PARA 
PHIS PARA TOD 




TJnltron da Clappy. AP n com 64 k de memorla, placa CP/M, 
exauBtor,2drlves,monltordef6sforoverdeetmpre88oraElebra8010Pde 100cps.B60 ORTWs 



E o AP II da Unitron. A solucao 
perfeita para as pequenas, medias 
e grandes empresas, proflssionais 
liberals e o dia-a-dia do lar. 
Solucao nas grandes empresas 
— AP II pode ser utilizado no 
gerenciamento de departamentos, 
em orcamentos, PERT, provisoes 
de vendas e no mais que voce 
precisar ou prever. 
Solucao para o prof issional 
liberal — AP II da Unitron 
tambem foi criado sob medida 
para as necessidades de qualquer 
profissional liberal. No caso do 
medico e do advogado, por 
exemplo, ele faz o cadastro dos 
clientes, emissao de laudas, 
controle de medicamentos, 
controle de processos, cobrancas 
judiciais e juridicas. 



Solucao no escritorio — AP II 

faz tudo para minimizar e facilitar 
o seu trabalho: contabilidade, 
folha de pagamento, orcamentos, 
controle de estoque, contas a 
pagar e a receber com muito mais 
rapidez e eficiencia 
Solucao em condominios — 
AP II facilita ainda a vidano 
condomlnlo: na administracao do 
orcamento, controle de cobrancas 
e pagamentos, balancetes, folha de 
pagamento, controle de entrada e 
saida de visitantes, ficha de 
moradores. 
Solucao no preco — 
Na Clappy, voce encontra oAPII 
pelo menor preco da praca e com 
macrosoluQoes de pagamento. 



unitron 




C\aP 



COPAGABAHA 

Aberta diariamente das 1 as 20 horas 
e aos sabados das 10 as 15 horas. 



Venha & nossa loja ou solicits a vlslta de urn 
representante. 

Centro:Av.RloBranco, 12-loJaesobreloJa. 

Contro: RuaSete de Setembro, 88 - loja Q 
(galerta). 

Copacab&na: Rua Pompeu Lourelro, 99. 

Sao Crlatovao: Rua An tunes Maciel, 25 - 
2° andar. 

Tels.: (021 ) 222-5517 • 234-0214 • 264-2096 
• 253-3395»222-5721 •257-4398» 
253-3170« 236-7175 • 283-3588 

Entregamos am todo o Brasll pelo reembolso Vang. 




O sorteado deste mes, que recebera" 
gratuitamente uma assinatura de urn 
ano de MICRO SISTEMAS, 6 Luiz 
Antonio de Oliveira, de Goids. 
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CODIGODE cores 
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Como todo hobbysta sinto dificul- 
dades em memorizar o c6digo de co- 
res de resistores e capacitores. Por isso 
gostaria de dar tres sugestSes: a primei- 
ra seria um programa que descobrisse 
o valor do resistor dando entrada no 
micro s6 com o c6digo de cores. 

A segunda seria o mesmo programa, 
so que para capacitores de polie"ster. E 
a terceira seria que voo§s da revista fi- 
zessem uma coluna mensal ou bimen- 
sal com aparelhos para os micros TK e 
NE com as fotos dos chapeados e de 
como ficou a dita montagem adaptada 
ao micro. Uma observacao final: os 
programas seriam para os micros corn- 
pat fveis com o ZX81. 
Alexandre C. Machado. 
Rio de Janeiro-RJ 



Fica aqui a sugestao para que os lei- 
tores se mobilizem. 



c 



IMPRESSORAS 
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Em atencao ao artigo publicado no 
mes de julho/83, intitulado "No Mun- 
do das Impressoras", vimos por meio 
desta solicitar a inclusSo dos itens a 
seguir discriminados: 

1 — Modelo 

• EL-8001 

• EL-8002 

2 — Impressao Bidirecional 

• Nao (EL-8001) 

• Opcional (EL-8002) 

3 — Densidade Vertical 

• 3ou6 LPI (EL-8001) 

• 3ou6 LPI (EL-8002) 

4 — Conjunto de Caracteres 

4.1 — Descricao 



• 96 ASCII alem do texto 
restante (EL-8001) 

• 96 ASCII ali§m do texto 
restante (EL-8002) 

4.2 - Carter Expandido 

• Sim (EL-8001) 

• Sim (EL-8002) 

4.3 — Cariter Comprimido 
* • Nao (EL-8001) 

• Sim (EL-8002) 

5 — Numero de Copias 

• 1 + 5 (EL-8001) 

• 1+5 (EL-8002) 

6 — Preco 

6.1 -EL-8001 e E L-8002 com buf- 

fer de 128 caracteres: 225,42 
ORTN's 

6.2 - EL-8001 e EL-8002 com buf- 

fer de 2 K caracteres: 237,44 
ORTN's 

6.3 — EL-8002 (somente) na versao 

bidirecional: acr^scimo de 30 
ORTN's no preco anterior. 

Benildo Pieroni 

Gerente de Vendas da Ecodata - RJ 

£ com muita satisfacao que, atraves 
desta, vimos agradecer a inclusao de 
nossas impressoras no quadro publica- 
dro publicado nas pSginas 44 e 45 de 
MICRO SISTEMAS, de julho de 83. 
Gostan'amos, entretanto, de solicitar 
alguns reparos nas informacoes ali con- 
tidas: 
1 -Sobrea El 6010 (Monica) 

• Tern capacidade grafica; expansao 
de buffer ate 8 K; caracteres compri- 
midos em toda linha, nao se limitando 
a 16 caracteres; possui interface 
RS232-C; e tern capacidade para near- 
letter-quality. 

2 -Sobrea El 9050 

• So tern velocidades de transmissao 
acimade 1200 BPS. 

Jose" Maun'cio S. Mendes 
Elebra Informatica - SP 

Agradecemos as correcoes e pedi- 
mos desculpas por nossa falha. 
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MSAGRADECE 



J> 



Ha muito tempo venho tentando 
encontrar no comeYcio local revistas 
ou informes na area de processamento 
de dados que atrafam minha atencao. 



De todas as revistas que tive oportuni- 
dade de verificar, a MICRO SISTE- 
MAS foi a mais interessante, tanto nos 
dados, informes, quanto nos cursos. 
Adelardo G. Mesquita Neto 
Fortaleza — CE 

Tenho acompanhado o trabalho de 
voces a partir dos primeiros numeros 
de MS e, com satisfapao, pude consta- 
tar nao s6 a preservacao da qualidade 
alcancada como tambem um aprimo- 
ramento constante. 
Roberto Z. Ognibene 
Sao Paulo-SP 

En reciente visita a Sao Paulo he ad- 
quirido un ejemplar de la revista MI- 
CRO SISTEMAS, la cual me ha gusta- 
do mucho ya que poseo un micro 
ZX81, 16 K y por aca" en nuestro pai's 
la informaci6n acerca de microcompu- 
tadores es escasi'sima. 
Dr. Hermann A. Muhlhauser 
Santiago-Chile 
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COBOL X BASIC 
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Sou leitor assi'duo desta revista des- 
de o seu lancamento, e reconhecoque 
ela tern colaborado para o aprimora- 
mento de muitos profissionais ligados 
a Processamento de Dados. 

Pore"m devo fazer uma se>ia cri'tica: 
tenho notado que voces supervalori- 
zam o BASIC — da primeira a ultima 
pagina da revista — em detrimento de 
outras importantes linguagens. Como 
"programadores COBOL", eu e va>ios 
colegas nos sentimos bastante discri- 
minados, pois praticamente nao se en- 
contra nada nesta revista que se refira 
a este importante e tao amplamente 
utilizado instrumento de programacao 



Luiz Antonio de Oliveira 
Goiania-GO 

Luiz, n6s tambem gostan'amos de 
receber mais colaboracoes tanto para 
esta importante linguagem como para 
outras. Alias, aproveitamos este espaco 
para "engrossar" o coro dos que pe- 
dem maior diversif icacao de linguagens 
para micros: serao bem-vindas. No que 
depender de n6s, f icaremos atentos. 



lili«0 



Eni nuchas « m 



'■■'.V : :-v;vy..' : '.-.. 



► MiCROCOMPUTADOHES 

!► JOGOS E f»ROeRAWASCOMe8CtAtS: 
Jfr- SUPR1MENTOS 

p- UTERATURA HAClONAL E fSTRANSElRA 
► CURSOS oe BASIC 




Ruads Assembfeia, 10* 33$an<*ar s/331? - Ed. Centre Candid* Mandea- TeL:<Q2l) 252-9420- CEP 200J1 . Rio de Janeiro- ft J 

, . 
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SUGEST0ES 



J 



Tenho 1 1 anos, sei BASIC e alguma 
coisa de an^lise de sistemas. Gostaria 
que publicassem alguns artigos para/so- 
bre programacao para criancas. Eu gos- 
taria tambe'm que dessem algumas di- 
cas e/ou curiosidades sobre os micros 
(por exemplo: como gravar sons, ma- 
nipular cassetes etc.). Tambem adora- 
ria que fosse criado um Clube de Com- 
putacao com a lista de pessoas, telefo- 
nes, enderecos, equipamentos etc. para 
trocarmos programas. 
Marcus Y. Maranhao 
Brasi'lia-DF 

Gostaria que, na medida do possi'- 
vel, voces abordassem mais a lingua- 
gem COBOL, principalmenteo COBOL 
Estruturado, pois acho que assim co- 
mo eu, existem muitas pessoas que es- 
tao sempre na expectativa de ver essa 
linguagem mais abordada nesta beta re- 
vista. 

Jose" Guilherme P. dos Santos 
Sao Lui's-MA 

Em primeiro lugar queria parabeni- 
z2-los pelo excelente trabalho apresen- 
tado por esta revista, e tambem pelo 
Curso de Assembler, ao qual venho 
acompanhando. 



Tenho uma sugestao a Ihes fazer: 
por que nao fazer o mesmo que fazem 
as revistas norte-americanas "80 Micro" 
e "Creative Computing", que todo mes 
de agosto lancam uma edicao especial 
com 40 jogos? 

Celso Augusto R. de Oliveira 
Sao Paulo-SP 

Gostaria que esta revista desenvol- 
vesse mais artigos sobre rotinas em 
Assembler. 

Passei o programa "Aeroporto 83" 
para o meu TK85, que me ensinou so- 
bre o assunto muito mais que livros ou 
teorias em forma de artigo. Parabe'ns 
por esta magnffica revista, que e" pr_ti- 
ca e fonte inesgotcivel de bibliografia 
sobre microcomputadores. 
Dr. Jos6 A. de Carvalho Neto 
Mogi Guacu-SP 

Acharia muito interessante se voces 
publicassem alguns artigos a respeito 
de mercados de trabalho em evolucao 
na a>ea de Informatica; novas aplica- 
coes do campo; e as pesquisas que es- 
tao sendo feitas, principalmente no 
Brasil, e que terao uma aplicapao pr2- 
tica em poucos anos. Notem bem que 
nao estou pedindo mateVias versando 
sobre ficcaocienti'fica ou futurologia, 
pois vejo que esta nao e a filosofia des- 
ta revista, que se aplica em fazer um 



trabalho se'rio, pra+ico e eficiente. 
Jose" Marcos Gomes 
Santo Andrd-SP 

MS deveria abrir um canal de comu- 
nicacao com revistas estrangeiras, ou 
seja, simplesmente traduzir textos e 
programas similares aos micros brasi- 
leiros, criando assim um intercambio 
informdtico. O ti'tulo da secao seria 
"Rede de Comunicacao". 
Dorgival da Cunha Silva 
S§o Paulo-SP 

Queria sugerir a voces uma reporta- 
gem sobre todos os micros existentes 
no mercado e seusdeta Ihes como: pre- 
co, capacidade de mem6ria, expan- 
sao, linguagem, modelo, fabricante, 
unidades vendidas at6 o momento etc. 

Gostaria tamWm de uma reporta- 
gem sobre a mi formacSo de profis- 
sionais de Processamento de Dados em 
cursos livres, as dificuldades de conse- 
guir uma colocacao etc. 
Jamir L. dos Santos 
Goiania-GO 



Envie suas sugestdes para MICRO 
SISTEMAS. Elas serao anotadas em 
nossa pauta e procuraremos, na me- 
dida do possi'vel, viabiliz^-las. 



Por baixo 
deumbomi 
computador 
so pode existir 
uma mesa (O^M 



As Mesas para Terminais H&M sao tao boas quanto o 
seu computador. Sabe por que? Porque elas sao feitas 
com o mesmo know-how e o mesmo criterio de 
controle, seguranca e precisao, como sao feitos tambem 
os computadores. 

Alem disso, as Mesas para Terminais H&M possuem 
acabamento perfeito, fosfatizado e com fundo plaine. A 
base e de poliuretano na cor grafite e o painel na cor gelo. 
O tampo em todos os modelos e de madeira compensada 
de mogno ou virola, com revestimento de f6rmica fosca 
branca. 



Tudo isso com a qualidade, 
tecnologia e tradicao H&M que • 
voc§ ja conhece, e que o seu 
computador esta esperando para 
conhecer. 
Consulte-nos pelo telefone ou solicite 
a visita de um representante H&M. 




£MM 



Filiada a 
ANFORSAI 



Representantes em todo o Brasil 
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Um programa que calcula e forma os hexagramas do I CHING 
nos micros TRS-80 modelo III, substituindo o metodo das moedas 



Consulte o I CHING 



01 CHING e" um livro de oiicu- 
los chines cuja origem se perde 
nos confins dos tempos. Ne- 

nhum historiador da China conseguiu 
estabelecer com precisao a epoca em 
que foi escrito, nem quern o escreveu. 

Quern nao o conhece, pode pensar 
tratar-se apenas de um monte de supers- 
edes. Entretanto, o I CHING seduziu 
mentes tao brilhantes como Leibnitz, 
matemdtico alemao e descobridor, jun- 
tamente com Newton, do Calculo Infini- 
tesimal, no qual se baseou para elaborar 
uma aritme'tica binaria; Herman Hesse, 
autor de obras conhecidissimas como O 
Lobo da Estepe, Demian e Jogo das 
Contas de Vidro, este ultimo inspirado 
no I CHING; Carl Gustav Jung, psicana- 
lista suico de renome, que criou a cha- 
mada Teoria da Sincronicidade com ba- 
se em seus estudos deste livro; e inume- 
ros pesquisadores mais ou menos famo- 
sos. 

Nao se pretende neste artigo fazer 
proselitismo da obra, pois partiremos do 
pressuposto que o leitor a conhega. 
Assim, sabera que e" um livro de ordculos 
usado como onentacSo, mais do que pa- 
ra advinhacax), para diversos momentos 
da vida. 

Tradicionalmente , sao usadas varetas 
de bambu, segundo um me'todo rituali- 
zado, para se estabelecer os chamados 
hexagramas, que s5o figuras criadas por 
linhas inteiras e quebradas. No Ociden- 
te, este mdtodo foi simplificado pelo 
uso de moedas, em numero de tres, lan- 
fadas sucessivamente num total de seis 
vezes. 

A consulta aos hexagramas estampa- 
dos no livro, de acordo com uma ordem 
apropriada, leva a leitura de textos, co- 
mo ja" foi dito, em forma de oraculos. 

programa mostrado a seguir subs- 
titui o metodo das moedas. Poder-se-ia 
cogitar da validade deste me'todo, mas ja 
que o micro computa dor estabelece se- 
quencias aleatorias de numeros, pode-se 
dizer que nao ha diferen?a entre o resul- 
tado deste metodo e o do langamento 
ao acaso de moedas. 
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Luiz Gonzaga de Alvarenga 



:FCRT=1T 050: NEXT 



:G0S0B20:CLS 



IHENG0T0125 
IHENG0I0135 



Calculo dos Hexagramas do I CHING 

5 G0SUB615 

10 M=i:N=l 

IS G0T035 

20 PRINT;dl0i5,"<ENTER>"; 

25 F0RI=iT0100:NEXT:PRINT3i0l6," 

30 Gi=INKEY'I = lT69i=""THEN20ELSERETURN 

35 CLS 

40 G^90i 

45 PRINT"QUER INSTRUCOES? (S/N)"; 

50 I$=INI<EY$:IFI$=""THEN5a 

55 IFXI="S"THENG0SUB5a0ELSECLS!B0'f06G 

60 CLS:PRlNT"FORMULE MENTALMENTL A PLRGUNTA 

65 R ANDOM : I- OR 1 = II 06 : A ( 1 ) =RND ( 4 ) 

,'U Sl-STR$(A<I>) 

75 D$<.1)=MID1<S3.,2) 

00 D'J>^D1 + D4< I> 

BS T1=D1 

90 NEXT 

95 Z=i 

100 L=i 

105 II M1L>S<DS,L,,1>="1' 

110 II M1D1<D4,L,1>="2' 

115 If MID* (Di,L,i> = "'J"l'HLNUO'l 0145 

120 irMID»(DS,L,t)»"4"THENB0TO153 

125 PRINT3G,"- "," "s 

130 MID4(D'J-,L,l)^"i":G-G -64:L=LH: 

135 i'tUNl'aJb," .-.-"* "• 

140 MlD*<in L l>«"0"s6»B-64aL-L+lsiFL>6TH£Ni7UeLSEB0T0iaS3 

145 PRINT30." O ","" ■--","* LLJA LJNHA H ";L; 

150 MXD5C0!t r L,i)-"i'' !M»OS6«B-A4»A<Z>?LSZ=Z+£sL*L+l8lFL>6THENi7 

0ELSLG0I01U5 

15b PRIHTBB," y- ' 

loO MID4<D4,L,i)^"Q' 

0LSEG0T01U5 

165 G0T0105 

1/0 PRINT3518,"HEX 1","IIEX 2"; 

175 PRINTc)25,"I CHIN G"; 

180 PRlNTai49,"0 LIVRO DAS MUTAC0E5"; 

185 G0SUB20 

190 CLS 

195 IFM=00RN=0THEN22b 

200 IFM=iORN = lTHENi*U5 

205 PRINT'OS HEXAGRAMAS SAO IGUA18, PORTANTO, NAO IIA LINHAS LM 
MGTACA0." ; :RH-i 

210 PR1N! 

215 FR]NTo)76,"0 IILXAGRAMA 1 EM NUMERO = " ; » PR IN 1 h)268 , "AUUARUE 

220 G0TO235 

5 PRINT 364, "OS HEXAGRAMAS TEM OS SLGUINTL'J Hl'MEKOS: ' 



ill L>o,IIIENl70LLSEOO-IOi05 



" t " ¥ L |-i ft LINIIA M ";L; 

:N=0-.G-G 64:A<Z)=L:Z-2^:L=L+i:XFL>6IHENi/ 



230 PR1NT3128, "LINHAS EM MOTACAO: 
; SNEXTS«PRINT3268, AGUARDE. . ."; 
235 F0RB«iTO8*FORO" s iT08 

240 Rl£ADH4'.P,0) 

245 1FHS(P,0; ^D4rHENLETV=P:B=0 

250 NEXTOSNEXTP 

255 DATA"lllili" 

"llllUl","illiiO 

260 UAIA"l001il" 

"1001Ul","100iiO 

26b 0AIA"U10iH" 

"010101" ,"QiUllO 

270 DATA"00ilii" 

"001101". "001110 



"111100", "111010' 
"100100", "100010 
"0i0i00","Q100i0 
"UOiiOO", "001010 



>sQ«ZsF0RS^tTOZ-l!PRINTA<S> 



,"iiI00i","t*1000 w , 111 Oil", 
', "100001" r "i00000","lUbUli ■ , 
' , "01 0001" , "OIUOUO" , "01 001 1" , 
',"001001 ","001000", "001 Oil" , 



'000010" r "000001", "000000", "000011' 
'01 1010", "01 1001 ","011000", "Oi iOli' 
'101010", "101001", "101000", "10101 1 • 
'110010", "110001", "110000", "i 10011' 



'30' 
'38' 



'49' 



'; »PR1NT32AB, ' 



275 DA1A"000111", "000100' 

"OO0iOi","QO0ii0" 

280 DATA"01iiil", "011100' 

"0i'il01","0iiii0" 

285 DATA"i01ili","101iOG' 

"10il01","10iii0" 

290 DATA"110ili", "110100" 

"11010i","110110" 

295 F0RY=1 T08:F0R2=1T08 

300 READJ4(Y,Z) 

305 1FRH=1THEN310ELSE315 

310 IFJ4(Y,Z)=J4(V,B)THENPRINT3106,J4<Y,Z);:G0T0320 

315 IFJ4<Y,Z)=J4(V,B)THENPRINTaiD6,J4(Y,Z),"e"- 

320 NEXTZ:NEXTY 

32b UAI A ' 1","34 ","5","26" r "ll","9","14" "43" 

330 DA TA"25" , "51" , "3" , "27" , "24" , "42" , "21" , "17" 

335 DA I A"6" , "40" , "29" , "4" , "7" , "59", "64" , "47" 

340 DATA"33","62","39","52","15","53","56" "31" 

345 DAT A" 12" , "16" , "8" , "23" , "2" , "20" , "35" , "45" 

350 DATA"44 ' , "32" , "48" , "18" , "46" , "57" , "50" , "26 

355 DATA" 13" , "b5" , "63" , "22" , "36" , "37" , 

360 DArA"10","54","6Q","4i","i9","6l V 
36b K--1 

3/u ii"MlD4U4,K,l>="l"THEN390 
375 1FMID4< r4,K,i)="2"THEN400 
-JtlO irhlD4(T4,K,l)="3"IIILN'U0 
irrlID4v li,K, 1)="4"THEN420 
TlL'K I4,K,i)="l" 
- i<=KH-IFK>6fHEN430ELSEG0r0370 
400 MI0i(T4,K,l)="0" 
105 K=K+UII K>6rHEN430LLbEG0T03/U 
410 HIOi(Tl,K,i>»"0" 

■lib t: -K H:IIK)illlEN430ELSEG0T0J70 
4cJ0 MlDHT4,K,i> = "l- 

425 K ; K>i:iFK>61HEN4JULLJEG0T03/O 
430 RESTORE 

ORA-=irOU:| -0RX=iT08 
4 40 READH4(A r X) 

445 I Kill ( A , X > -- T 4 THENLL i G-A :H«X 
^bu NLX7X:NEXTA 

isa i ory : i rosa» or/.z--i roa 

:tU REA0J4(YY,ZZ) 

1^,5 IFRH=iTHEN470ELSE4/5 

4/0 IF J4( Y Y T 2Z )=J5 < B ,H> 1 HENP R 1 N 1 a 1 1 3 , - 
" ; :GGT0485 

475 lFJ*<YY,ZZ>=Jt(6,H)THENPRINTaH8,Jl{YY,ZZ>jBPRlNTa26B " 

"; :G0r0485 
480 NEXTZZ:NEXTYY 
035 G0SUB20 
490 CLS 

BOT0645 
500 DLSsPRINT" 1 CITING e' um livro de oraculos provcnle 

nte da China, 

bub I -RlNT"cuja or 1 9 en se perde no passndo. Normalment c, para s 
e usar o I " 

510 PRINT"CHIN6, usam~se varetas de bambu, pu mesmo moedas, pa 
i a se for mar" 

515 PRINV'um ou dois hexagramas, cujoa content ar i os- sao en tao i 
Idos, junta-" 

520 PRINT'mentL- com as linhas em mutacao do primeiro he;:agrama 
. oraculo " 

525 PR1NT"loih[> lcto compreendt os comentarios dos hexagramas e 
os das 1 i - " 
53U l'RINT"nhas, cuja I nt erprel acao compreende dois periodo? de 

tempo, um 
535 PRlNT"ariter i or (presente ou pr.ssado) e outro posterior Cfu 
tur o) ." 
540 G0SUB2U 

b4b CLSsPRINTa24,"Instrucoes Prelimtnares" 
5SU PRINT 
555 PR1NT"0 1 CUING,- ser.do UM I i -to de oraculos, e' usado para 

adivinha -" 
560 PRINT'cots. Para uia ' lc, deve se pensar sabre uma pergunt 
a a lhe ser" 

565 PRINT"! e i '. rt tisto e', a pergunta deve ser felta mentalment 
e ) , e en se" 

570 r'RINI"guida, solicitar (ment a iment e / <jue a resposta seja d 
ada at raves" 

575 PKINT"doa oraculos, ass I m que o programa o solicitar." 
580 PRINT 

585 PIUN1 IAOk30r'AUVLRTENClA":PRlNT 

5V0 I'KiNI'O 1 CITING deve ser usado com parcimonia, ou seja, ap 
enas en as- sunlos REfiLMENTt import antes." 
bVb G0SUB20 
600 CLS 
610 G0T06Q 
615 CLS 

620 PRINTCHR403) 
625 PRINT3276,"! CHING"; 
630 PRINTa46U,".0 LIVRO DAS MUTACOES"; 
635 F0RY-=lT0i20O = NEXr 
640 RETURN 
64b END 



A formacao dos hexagramas segue 
rigorosamente o metodo especificado no 
livro. Na verdade, ninguem que desco- 
nhe9a qual e este criterio podera enten- 
der o programa, pois na"o conhecera" as 
premissas basicas necessarias. 

Existem alguns programas para com- 
putadores que realizam este calculo, mas 
nenhum, ao que se sabe, conseguiu o 
rigor aqui apresentado. programa, 
evidentemente, nao substitui o livro, 
pois somente forma e calcula os hexa- 
gramas. texto devera ser buscado no I 
CHING, segundo os hexagramas apre- 
sentados. Infelizmente , nao existem tra- 
dugOes perfeitas para o portugues: em 
todos os casos, s§o versOes do ingles, ao 
inves de terem sido traduzidas direta- 
mente do chines. Mesmo assim, algumas 
versOes sSo boas para um entendimento 
da obra. Em geral, o I CHING 6 conhe- 
cido em portugues como Livro das Mu- 
tacSes, Livro das Transmutagoes, ou 
ainda, como Livro das Transformagdes. 

programa foi escrito em BASIC pa- 
ra o CP-500 e roda com poucas modifi- 
cagoes em outros equipamentos. ■ 

m 
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LOJA 
MICRO-KIT 

TUOO SOME MICROCOMP.UTAOOR 

LANQAMENTO: 

Uvro de Basic vol. I 
Edigao Propria 

CURSOS 

Basic p/adultos e criancas.com m6to- 
do proprio comprovadamente eficiente; 
Professores c/mestrado em ENGENHA- 
RIA DE SISTEMAS; mais de 20 cursos 
aplicados. Turmas pequenas aulas pra"- 
ticas com MICROCOMPUTADOR. 

VENDA DE MICROCOMPUTADOR 

Unitron AP II, Digitus, TK e CP 200. 
Financiamento em ate" 24 meses. 

PROGRAMAS 
Comerciais e Jogos p/ APPLE, Unitron, 
Polymax, Digitus TK e CP200. 

SUPRIMENTOS 

Disquetes, Caixa p/ Disquetes, Formu- 

la"rios Continuos etc. 

VENDA DE LI VROS E REVISTAS 
Despachamos para todo o Brasil. . 



Rua Visconde de Piraja, 303 S/Loja 
210 - Tels. (021) 267-8291 - 521-4638 

CEP 22410- Rio de Janeiro 

Rua Visconde de Piraja, 365 sobrebja 

209 - Ipanema 



A re/acao entre nomes e numeros e toda a energia que eles traduzem 
sao reveladas neste programa para os micros da linha Sinclair 



Dig a seunome... 
o micro lhe dira quern es 



E~j ste programa vai revelar a voce 
a energia que os nomes 
carregam atraves da 

numerologia, que e uma disciplina 
provemente .da cabala (linha esotenca 
onunda da religiao judaica). Esta 
disciplina determina, para cada letra de 
um nome ou palavra, um valor numerico 
especifico, podendo-se assim descobrir o 
tipo de mensagem que emana de cada 
nome. 

Antes de sabermos como o programa 
opera, vamos falar um pouco sobre 
essa disciplina desconhecida de muitos 
ocidentais. 

A cabala divide o ser humano em quatro 
principios: espirito, mente, alma e 
corpo. Cada um deles corresponde 
respectivamente aos elementos fogo 
ar, dgua e terra, sendo que a mente 
e o espirito sao amorfos e a alma flui 
dentro do corpo que e formativo da 
materia. A energia espiritual e 
dividida em tres aspectos que sao a vida, 
vontade e forca; a energia mental em 
percepcao, razSo e emocao;e as do 
corpo fisico em absorga"o, circulacao e 
secrecao. 

A numerologia esta baseada nestes 
principios e quando se entendem as 
propriedades e as virtudes dos numeros 
dispoe-se da chave numero um para 
o conhecimento dos misterios da 
natureza. Os numeros determinam todas 
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as simpatias e antipatias, discordia e 
harmonia entre os corpos naturais, o 
espirito natural e os seres humanos. 

Cada letra possui um valor numdrico e 
mantem tambe'm uma relacao oculta 
com o som. Nome e qualidade nao sao 
senao numeros trazidos a sua equacao 
final. 

Ap6s essa rapida elucidacao, vejamos 
como o programa opera. 

OPERANDO PROGRAMA 

Este programa, desenvolvido no CPD de 
MICRO S1STEMAS, foi estruturado 
para ser armazenado em fita cassete com 
instrucao automdtica de execucao. 

Isso 6 feito para evitar que os dados 
contidos na matnz geradora de 
mensagem (figura 1) nao se percam 
acidentalmente por um RUN ou 
CLEAR. 

Primeiro digite a listagem em BASIC do 
programa. Tecle RUN 1000 e entre com 
as mensagens da mathz (figura 1), uma a 
uma. Apos isso, prepare o gravador e, 
pressionando qualquer tecla, o programa 
sera arquivado em fita. 

Quando da execucSo do programa, voce 
devera entrar com o nome escolhido e 
aguardar a mensagem refe rente. Lida 
a mensagem, para processar outro 
nome, basta apertar qualquer outra tecla. 



NUMEROS 
CABALISTICOS 

CPD-NICRO SISTENAS 
RD/HC 



10 REN 

20 REN 

30 REN 

40 REM 

50 REN 

60 REN 

70 REN 

80 REN 

90 REN 

100 FOR A=0 TO 31 

110 PRINT AT 0,A;"H";AT 20, A; "B 
ii 

120 NEXT A 

130 FOR A=l TO 19 

140 PRINT AT A,1;"[I";TAB 30; "C" 

150 NEXT A 

160 PRINT AT 2,6;"NUNER0S CABAL 
ISTICOS" 

170 FOR A=17 TO 5 STEP -1 

180 PRINT AT A+1,4; " 

";AT A,4;"NICR0 SIS 
TENAS - ANO III" 

190 FOR Y=l TO 15 

200 NEXT Y 

210 NEXT A 

220 PRINT AT 8,1;" ";TAB 30;" " 
;TAB 1;" ";TAE 30;" ";TAB 1;" "; 
TAB 30;" ";TAB 1;" ";TAB 30;" " 

230 FOR A=0 TO 31 

240 PRINT AT 7,A;"H";AT 12,A;"H 

250 NEXT A 

260 LET AS="0000100200300400500 
6007008009 009 01002003004 005 B06 00 
7 00800901002007000003004 00500" 

270 FOR A=13 TO 19 

280 PRINT AT A, 2; "1 



29 NEXT A 

300 PRINT AT 9,1; "NONE? "; 

310 INPUT US 

320 IF US=" M THEN GOTO 310 

330 PRINT US 

MICRO SISTEMAS. novembro/83 



» T 
= "H 



x; x 



340 LET US=U$+" " 

350 LET X=0 

360 FOR A=l TO LEN US 

370 IF US(A)<"A" OR US(A)>"Z 
HEN GOTO 410 

380 IF U8(A)="C" AND US(A+l) 
" THEN GOTO 700 

390 LET Y=(C0DE US(A)-37)*3 

400 LET X=X+VAL AS(Y TO Y+2) 

410 NEXT A 

420 FOR A=13 TO 19 

430 PRINT AT A, 2;" 

440 NEXT A 

450 PRINT AT 11,30-LEN STR$ 

460 PRINT AT 14,0; 

470 LET Y=VAL "(76 AND X=139 
(75 AND X=1260)+(74 AND X=109 
(73 AND X=666)+(72 AND X=490) 
1 AND X=365) + (70 AND X=360)+( 
AND X=350)+(68 AND X=318)+(67 
D X=215)+(66 AND X=120)+(65 A 
X=81)" 

480 IF NOT Y THEN GOTO 560 

490 PRINT TAB 3;NS(Y) 

500 IF INKEYS="" THEN GOTO 5 

510 PRINT AT 9,0; 

520 FOR A=l TO 3 

530 PRINT " 



540 NEXT A 

550 GOTO 270 

560 LET Y=INT (X/1000) 

570 IF Y=l THEN PRINT TAB 3;NS( 

580 IF Y>1 THEN PRINT TAB 3;N3( 

Y) 

590 LET X=X-Y*1000 



5, 

(7 

69 

AN 
ND 



600 LET Y=INT (X/100) 

610 IF Y THEN PRINT TAB 3;NS(Y + 
54) 

620 LET X=X-Y*100 

630 LET Y=INT (X/10) 

640 IF Y>4 THEN PRINT TAB 3;N$( 
Y + 45) 

650 IF Y<5 THEN GOTO 670 

660 LET X=X-Y*10 

670 IF XTHEN PRINT TAB 3; NS ( X) 

680 GOTO 500 

700 LET X=X+600 

710 LET A=A+1 

720 GOTO 410 
1000 FAST 
1010 DIN NS(76,24) 
1020 FOR A=l TO 76 
1030 SCROLL 
1040 INPUT NS(A) 
1050 PRINT A; TAB 4;NS(A) 
1060 NEXT A 
1070 CLS 

1080 PRINT AT 21,0; "PREPARE GR 
AVADOR" 

1090 PAUSE 4E4 
1100 SAVE "CABALA" 
1110 SLOU 
1120 GOTO 1 



David S. H. Abramowicz 6 Engen he iro Eletrd- 
nico e faz mestrado de Comunicacao na 
UFRJ. Trabalha como Consultor na a"rea de 
Arquitetura de Redes de Microcomputadores. 



1 ANBICAO E DETERNINACAO 

2 NORTE E DESTRUICAO 

3 FE NO FUTURO 

4 FORCA E PODER 

5 UNIAO FELIZ 

6 SUCESSO CONPLETO 

7 TRANQUILIDADE 

8 EQUIDADE E PROTECAO 

9 NAGOA E TRISTEZA 

10 RENOVACAO E LOGICA 

11 DI5PUTA E DECEPCAO 

12 REALIZACAO 

13 CANINHO T0RTU0S0 

14 RENDICAO 

15 PIEDADE E l/IRTUDE 

16 SENSUALIDADE E LUXURIA 

17 AZAR E PERDA 

18 VICIO E BRUTALIDADE 

19 LOUCURA 

20 SABEDORIA E AUSTERIDADE 

21 CONHECEDOR DOS NISTERIOS 

22 VINGANCA E CA5TIG0 

23 IGNORANCIA 

24 l/IAGEN E NUDANCA 

25 INTELIGENCIA 

26 ALTRUISNO 

27 BRAVURA 

28 ANOR E PRESENTES 

29 INFORNACAO E CONUNICACAO 

30 CASANENTO E FANA 

31 ANBICAO E IMTEGRLDADE 

32 UNIAO E CASANENTO 

33 BONDADE E PUREZA 

34 SOFRINENTO E RECONPENSA 

35 FELICIDADE E SAUDE 

36 GENIALIDADE 

37 FIDELIDADE DONESTICA 

38 AVAREZA 



39 HONRA 

40 FESTAS E FERIAS 

41 VERGONHA E DESGRACA 

42 VIDA CURTA E TRISTE 

43 TENPLOS E ADORACAO 

44 PODER E SOBERANIA 

45 PROGENIE 

46 FERTILIDADE 

47 VIDA LONGA E FELIZ 

48 3ULGANENT0 

49 ESPEIRITO NERCENARIO 

50 PERDAO E ALIVIO 

51 VIUVEZ 

52 INICIACAO E CIENCIA 

53 RECUPERACAO E PROTECAO 

54 AFLICAO E ERRO 

55 ANGELICAL 

56 NEDO E HESITACAO 

57 CRENCA E FILOSOFIA 

58 LONGAS VIAGENS 

59 VIRTUOSIDADE 

60 PERFEICAO 

61 DONINIO E PODER 

62 CONQUISTA E INPERIO 

63 DISPUTA E GUERRA 

64 CLENENCIA E SINPATIA 

65 ADEPTO 

66 HONRA E PATRIOT ISF10 

67 AZAR E TRISTEZA 

68 NENSAGEIRO DIVINO 

69 ESPERANCA E 3USTICA 

70 LAR E SOCIEDADE 

71 A CIENCIA DAS ESTRELAS 

72 SACERDOCIO 

73 ININIZADE E INTRIGA 

74 SILENCIO E RESERVA 

75 ABORRECINENTOS 

76 PERSEGUICAO 



Figura 1 
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TK-82 TK-85 
CP-200 






Formula 1 
Commander 

yGuerra no Pacifico 
Caca ao Tesouro 
Simulador de V60 
Estoque 1 
Microcalc 
Defender 
Master (xadrez) 
Speed Racer 
e muitos outros 

Cartucho Atari 
Aplicativos p/CP-500. Digitus e Polimax 

Distribuicao exclusiva de programas das 
marcas MICROLINE. INFINITUS e SUPERSOFT 

PECA LISTA DE PRECOS 



D 



DIGITAL 

o endereco dos microcomputadores 

Rua da Conceicao, 377/383 
Fone: (0512) 24-1411 
90000 - Porto Alegre • RS 



T 



N 




► Traducoes e versoes 

exclusivas para a 

comunidade de informatica. 
i Pioneiros no setor. 

» Manuais e publicacoes 
diversas. 

• Graficos. 

• Supervisao Tecnica de 
profissionais atuantes - 
analistas e consultores. 

i "Linguagens de alto nivel" 
aliadas a qualidade/ 
velocidade de entrega. 



DlSCOOGR 



TRADUQOES 
Informacoes 
pelostelefones: 
(021) 264-6392 

264-739] 

228-2798 
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ICRO PROCESS 

COMPUTADORES LTDA. 



• Microcomputadores 

Microdigital, Prologica e Similares Apple. 

• Aulas de Basic 

• Monitores, Impressoras 

• Programas de Contabilidade, aplicativos, jogos, etc. 

• Pacotes de programas para a area de Advogados, 
Open Market Dentistas, Administracao de I move is 

• Programas para Engenharia, Arquitetura, 
Controie de Construcoes, etc. 

• Elaboracao de programas por encomenda. 

• Personalizacao de programas para f irmas e 
profissionais liberals. 

• Jogo Odissey/Dactari. 

• Manutencao e Transformac5o de Televisores 

• Revistas e Publicacoes Tecnicas 

• Amplo Financiamento 

• Despachamos por nossa conta via Varig. 

TEL: 64-0468 

Alameda Lorena, n° 1310 - CEP 01424 

Sao Paulo 

*•* ESTACIOIMAMENTO PARA CLIENTES ••» 
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MICROCOMPUTADORES 



DGT-100 Cr$ 240.000. x 3 — Gratis 18 jogos 
CP-200 Cr$ 110.000. x 2 — Gratis 6 jogos 
TK85 Cr$ 89.925, x 2 — Gratis 6 jogos 
TK82-C Cr$ 49.925, x 2 — Gratis 6 jogos 

alnda: UNITRON Ap II, Mem 64 K, 
Joystick, Impressoras. etc... 

(Precos su|eltos a moditlcagoes) 



PROGRAMAS PRONTOS EM FITAS 



JOGOS 

VISITA AO CAMINO 

MIDWAY 

PASSAGEM PARA 

O INFINITO • 2- DIMENSAO' 

10 JOGOS • JORNADA l> 

EXCITANTES ESTRELAS 

PARA1K EMUITOMAIS! 



JOGOS: 

SCARF MAN 
PENETRATOR 
SUPERNOVA 
VIAGEM A VALKYRIA 
ASILO 1 
AVENTURAS 
DEFENSE COMMAND 
E MUITO MAIS 1 



LEASING E CREDITO DIRETO! 



LITERATURA 

i MICROSISTEMAS 
i INTERFACE 
> JORNALTK-CP 
i IMPORTADOS 



+ CURSOS DE BASIC 

GRATIS 

NA COMPRA DE QUALQUER MICRO 



DESPACHAMOS PARA TODO O BRASIL! 



APLICATIVOS 

CONTROLE DE ESTOQUE 

CONTAS A PAGAR/RECEBER 

MALA DIRETA/CADASTRO 

FOLHA DE PAGAMENTO 

ViDEOCLUBES 

ESTATISTICOS 

SOFTWARE SOB ENCOMENDA 



Kristisn 

**»«JHTRONICA LTDfc^' 

Rua da Lapa, 120 Gr. 505 

Rio de Janeiro - RJ 
. Tel.: (021) 252-9057 





Lytel, A.; Marques, 

C. A. M., Novo ABC 

dos Computadores, 

Editors Antenna, 

Cr$ 4.000,00 

(nov/83). 



Descrever computadores analogicos e digitals abor- 
dando aspectos t^cnicos de sua constituicao eletronica e 
formas de programacao e" uma tarefa ambiciosa; faze-lo 
em apenas 175 patinas e" tarefa quase impossi'vel. No en- 
tanto, Allan Lytel e Carlos Alberto M. Marques conse- 
guiram esta proeza no livro "Novo ABC dos Computado- 
res". 

livro e\ na verdade, uma atualizacao do "ABC's of 
Computers", do proprio Allan Lytel, publicado no Bra- 
sil sob o tftulo de "ABC dos Computadores". Segundo 
Carlos Alberto Marques, a atualizacao do livro original 
de Lytel se fez necessa>ia devido ao "vertiginoso aper- 
feicoamento tecnol6gico do setor que nos legou o cir- 
cuito integrado, antes a novidade era o transistor". 

Nessa nova versSo, o livro obedece a um padrao de 
descricao amena, pore"m completa, apresentando, ao Ion- 
go de seus doze capi'tulos, todos os aspectos da computa- 
cao, desde a descricao teorica dos circuitos eletronicos 
digitals que constituem um computador ate* as linguagens 
de programaccio que permitem seu uso, passando pela 
tecnologia de fabricacao dos circuitos integrados. 

A leitura do livro n§o exige conhecimentos profundos 
de eletronica digital, mas uma pequena nocao 6" impres- 
cindi'vel para o perfeito entendimento dos circuitos ele- 
tronicos descritos. 

Os capi'tulos que tratam dos "Circuitos Logicos Basi- 
cos", "Multivibradores" e "Contadores" foram total- 
mente reescritos, em comparacao com o original, utili- 
zando-se uma simbologia gr£fica moderna e referencias 
a tecnologia mais empregada atualmente: a TTL. 

O capftulo sobre os "Circuitos Integrados" foi intro- 
duzido especialmente para aprofundar as tecnicas de 
criacao de um circuito integrado, descrevendo um dos 
mdtodos para a confeccao destes dispositivos miniaturi- 
zados. 

Nao menos importante 6 o capi'tulo relativo aos dis- 
positivos de entrada e safda de informacoes, isto e\ de 
perifericos, que foi atualizado com referencias aos vi- 
deoterminais, impressoras matriciais, discos flexi'veis, 
etc. 

Os demais capftulos tratam de: "Computadores — 
Digitals e Anal6gicos", "Numeros para Computadores", 
"Operacoes Aritme'ticas", "L6gica Simbolica", "Circui- 
tos Calculadores", "Armazenamento de Dados" e "Pro- 
gramacao". 
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filcres 



NOVIDADES 

CP-300/CP-500 
JOGOS 

BATALHA AE- 

REA(F) 

FORCA(F) 

TIRO AO ALVO 
(F) 



SOFTWARE 

I - DIRETO RIO (D) 16.000 I CP-200 
- BANCO DE DA- ««™ 



4.000 : - CARTA ASTRAL BATALHA AE^REA . 4.000 ARTILHARIA .... 

4.500' : (F) 15.000 BATALHA NAVAL . 5.500 SIMULAD0 R DE 

-ODONTO(F) .30ORTN BIORRITMO 4.000 vQ0 ,, 

4.000 : ' : (D) 50 ORTN CAD. DE CLIENTES1 3.500 METEO RO 



TABUADA(F) .. 4.000* - CONVERT (F) . . 6.400 COMANDO UFO . . 4.000 KING KONG .. 7.500 

COMANDO UFO - LISTA (D) 16.000 CONTAS A PAG AR 13.000 FUNGALOIDES .. 7.500 



COMANDO UFO 

(F) 

PATRULHA (F) . . 



5.000* -SUPERTECLA 
6.000* (F) 



INVASORES(F) . 5.500* - EDITOR (D) . 



PADDLE PINBALL 

(F) 

DISCOS VOADO- 

RES(F) 

DANCING DE- 
MON (F) 

XADREZ(F) 

CUBO (F) 

JORNADA NAS 
ESTRELAS (F) . . 

ELIZA (F) 

COSMIC (F) 

SCARFMAN (F) . 
LUNAR (F) 



- SOUND (F) . . . . 6.400* qFNHA 

9.600* LEGENDA atroriM . . 

LtutNUA SIMULADC 

F - Para programa em f ita . 

8.000* D • Para programa em disco a 

* Acrescentar Cr$ 6.000,00 TABUADA 

8.000* p/versao em disco TIRO AO / 



8.000* p/versao em disco IIKUAU 

10.000* VIDEO T I 

6 400* COMPLETA LINHA DE V U-CALC 

PROGRAMAS PARA 

nrnn ± ENGENHARIA. PACOTE 



7.000* V(GAS CONTI- 

9.600* „ 111AO 



10 JOGOS EM BA- 
SIC (em disco, boa, 
sky, pouso lunar, 
jornada, teaser, cu- 
pim, hopper, cram. 



- MALA DIRETA 



- FINANQAS (D) . 30.000 

- PROCALC (D) . . 40.000 

- VIDEO (F) .... 10.000* 

- BANNER (F) . . . 6.400* 

- SCRIP (D) 40.000 

(F) 32.000 

- CONTROLE DE 

ACOES (F) 6.400* 



DOS (D) 40.000 



AGENDA . . 



CORRIDA C/OBS- 

TACULOS 4.000 

AMBASSADOR . . . 4.500 

BATALHA NAVAL 

II 6.000 

COLECIONADOR 

DE CRISTAIS .... 6.500 

PERIGO, SERPEN- 

TE!!! 6.500 

PRECO ESPECIAL. SE| _ VA ? Q00 

POR ATACADO LABI R INTO 5.000 

ROLETA 4.500 

BRANCO NO PRE- 
'A 9.500 T0 5- ooo 



. 9.500 



onnn F0RCA •■• 4.000 S IMULADOR DE 

<£nnn L0T ° 4 °°° VOO III 9.500 

6 400* ° ESTE SELVAGEM 4500 BLOQUEIO 5.000 

SENHA 450 ° SUPER STANDART 6.500 

, fita SIMULADOR DE DERBY 4000 

i disco V °° 650 ° GUERRA DOS MIS- 

000,00 TABUADA 4.000 SE , S 4 ^ 

TIRO AO ALVO . . 4.000 J0 RNADA NAS ES- 

VIDEO TITULO... 15.000 TRELAS 8.500 

\RA VLJ - CALC 1000 ° COME A COBRA . . 5.500 

PACOTE ECON0- EDITOR DE TEXT01 2.000 

MICO 4.000 ELIZA 7.500 

METEOR 5.200 COMPILADOR AS- 



NUAS 
LAGES 



. 14.000 INVASION FORCE 9.600 SEMBLER 8.500 



14.000 3D DEFENDER 



BARRICADA(F) '. 9^00^ PORTICOS 16.000 KRAZY KONG 

GALAXI (F) .... 9.600* TRELICA 16.000 RED ALERT . . 

METEOR (F) 9.600* VIGA SOBRE BASE PUC MAN 

PENETRAITOR(F) 9.600* ELASTICA 14.000 INTELECTO I . 



OPERACOES COM 



DODGEM . . . 



7.200 DESASSEMBLA- 

9.600 DOR 8.500 

7.200 DESCHAVEADOR .10.000 

9.600 CONTROLE BAN- 

7.200 CARIO 13.800 

5.000 ESTOQUE 13.800 



MATRIZES 14.000 POUSO EM MARTE 5.000 MOTOR A EXPLO- 



<y, pouso lunar, RESOLUQ. EQUA- ALBATROZ 

>rnada, teaser, cu- C AO DE GRAU 0. . 14.000 ALERTA VERME- 

im.hopper, cram. CA[ _ C ELEMENT . LH0 

PUCAtS'vO 6 6 ' D0 TRIANGULO . . 14.000 MAZOGS 

CADASTRO DE CONVERSAO DE DUELO 

CLIENTES (F) 15 ORTN UNIDADES 14.000 O. V. N. I 

(D) 20 ORTN DIMENS. PCS. COMANDO SUB- 

MALA DIRETA CONCR. ARMADO14.000 MARINO 



5.500 SAO 6.800 

SOUNDMAKER I . . 9.600 

5.500 GRAPHMAKER I . . 6.800 

9.000 FROGGER 9.600 

5.000 

. DISTRIBUTOR EXCLUSIVO 



iB^RT0MM0)l3»rJ 



30.000 VIGASCURVAS . . 14.000 | BASE ALPHA . . 



A FILCRES PERMANECE ABERTA DIARIAMENTE ATE AS 18 HORAS, INCLU- 
SIVE AOS SABADOS ATE AS 13 HORAS PARA MELHOR ATENDE-LO. 
(ACEITAMOS REPRESENTANTES) 



filcres 



Filcres Importacao e Representacoes Ltda. 

Rua Aurora, 165 - CEP 01209 - Sao Paulo - SP 

Telex 1131298 FILG BR - PBX 223-7388 - Ramais2,4, 

12, 18, 19 - Diretos: 223-1446, 222-3458, 220-5794 e 

220-91 1 3 - Reembolso - Ramal 1 7 Direto : 222-001 6 - 220-771 8 
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A /guns truques de protecao de programas e o que fazer 
para deixa-los com sua marca registrada 






Sidra 



Programas trancados e selados 



Rudolf o Horner Junior 




ual 6 o programador que, mui- 
tas vezes, nao deseja impedir 
_ que seu programa possa ser lis- 
tado^or pessoas que venham a utiliza- 
lo? Talvez todos. E o caminho e manter 
em segredo a estrutura de dados empre- 
gada em sua confeccao, dificultando 
assim qualquer tentativa de altera9ao 
por pessoas nao autorizadas. 

Inibir a listagem de programas e, em 
geral, um trabalho dificil, pois qualquer 
programador com razoavel conhecimen- 
to pode fazer o que quiser com o mi- 
crocomputador, o que significa dizer 
que nao importa qual o processo de pro- 
tecao utilizado: sempre sera possivel 
contorna-lo, de uma forma ou de outra. 

Na verdade, o melodo mais eficaz se- 
ria a eliminacao do comando LIST da 
Unguagem BASIC. Este comando 6 resi- 
dente na mem6ria ROM do Apple, e 
simplesmente retird-lo, sem ter que me- 
xer no hardware da maquina, 6 impossi- 
vel e tambe'm desnecessario. Portanto, 6 
mais coerente nos atermos aos recursos 
que o proprio equipamento oferece para 
este tipo de procedimento. 

Para realizar nosso intuito devemos 
impedir, em qualquer momento, que o 
usuano tenha controle sobre um progra- 
ma sem que este esteja sendo executado. 
Os que sao gravados em fita cassete, por 
este motivo, nao permitem muitas for- 
mas seguras de protecao, uma vez que, 
para recebe-los na memoria, o usuario 
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devera" ter pleno controle sobre a maqui- 
na no momento em que carregar um 
programa. Se ele pode fazer isto, pode 
tambem listar o que acabou de carregar. 
As formas de bloqueio que discutire- 
mos a seguir serao decorrentes da execu- 
cao do proprio programa que estamos 
tentando esconder e, justamente por 
isso, so funcionarao a medida em que 
ele for sendo rodado. Assim sendo, no 
momento em que a execucao principiar, 
o programa devera executar procedi- 
mentos de seguranca de forma a impe- 
dir uma interrupcao ou, pelo menos, 
tornar impossivel a obtencao da lista- 
gem do programa logo apos a interrup- 
cao (caso nao se consiga impedi-la). 

CRTL-C E RESET 

No Apple existem duas maneiras de 
se interromper a execucao de um pro- 
grama em BASIC. Uma delas e pressio- 
nando CRTL-C. Neste caso, o programa 
6 interrompido e aparece na tela o 
numero da linha onde ocorreu a quebra. 
A segunda e" atravds do uso da tecla 
RESET. Normalmente o uso desta tecla 
consegue parar temporariamente qual- 
quer coisa. que temos a fazer e, por- 
tanto, utilizar um processo que seja ca- 
paz de inibir estes dois recursos disponi- 
veis ao usuario. 

Inibir o CRTL-C 6 muito facil. Basta 
criarmos, em nosso programa, uma roti- 



na de erro e empregarmos o comando 
BASIC que transfere a execucao do pro- 
grama para esta rotina toda vez que 
alguem tentar interromper a execucao 
com CRTL-C ou quando ocorrer algum 
erro de qualquer espe'cie durante a mes- 
ma. comando 6 ONERR GOTO. 
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ONERR GOTO 70 


2d- 


POKE 40286,35: POKE 40237,216 


3© 


HONE : UTrtB 3 


40 


PRINT "PROGRAMS TESTE" 


50 


PRINT : PRINT "TENTATIMHS DE 




INTERRUPCAO: "SN 


60 


SOTO 60 


■■ 


ONERR GOTO 70 


30 


POKE 40236>35: POKE 40237-216 


•?0 


N = N + It GOTO 10 


100 


REM ESTE PROGRRNrt 3GNENTE F 




UNCIONh PARA "D.O.S." com 48 




K DE RAM 



Figura 1 

Veja o programa listado na figura 1 . 
Logo na primeira linha existe um co- 
mando deste tipo que estabelece: ocor- 
rendo um erro durante a execucao - ou 
caso o usuario use CRTL-C na tentativa 
de interromper o programa -, esta deve- 
ra" ser transferida para a rotina que prin- 
cipia na Linha 70, a qual dara o devido 
tratamento ao erro encontrado. 

Quando a-execucao e transferida para 
a rotina de erro, o micro coloca, no en- 
dereco de memoria numero 222 (deci- 
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mal), um c6digo que define o motivo 
pelo qual . a rotina de tratamento de 
erros foi ativada. Caso tenha sido pelo 
uso de CRTL-C, o conteiido do endere- 
90 de memoria 222 sera - igual ao maxi- 
mo valor que um byte pode assumir, ou 
seja, 255. Qualquer valor que seja menor 
que este acusard-nao uma tentativa de 
interrupcao, mas sim um erro na execu- 
cao do programa. 

Para conseguirmos inibir tambe'm a 
tecla RESET, deveremos usar certos va- 
lores em determinados endere90s de me- 
moria que tern por funcao fazer com 
que a execucao do programa tambdm 
seja transferida para a rotina de erro 
quando do uso da tecla RESET. 

Amda com relacao ao programa da 
figura 1 , veja a linha numero 20. Atraves 
dos valores que atribuimos a dois ende- 
re90S de mem6ria, atingimos nosso obje- 
tivo. Experimente o programa (atencao : 
ele so funciona para equipamentos com 
pelo menos 48Kb de memoria RAM e 
que estejam com o DOS carregado). Co- 
mece a rodd-lo. Tente interrompe-lo. 
Use CRTL-C. Use RESET. Veja como a 
execucao nao cede. programa ficard 
contando o numero de tentativas feitas 
pelo usuario para quebrar sua execucSO. 
Conclusao: se a execucao nao pode ser 
mterrompida, o programa tambem nao 
poderd ser listado. 

Para alcazar o mesmo efeito, basta 
que voce use o comando ONERR 
GOTO e coloque os valores certos nos 
bytes 40286 e 40287. No final do pro- 
grama voce devera cnar uma rotina de 
erros para o tratamento de tentativas de 
interrupcSo. Esta podera" ser semelhante a 
que apresentamos aqui. Outra alternativa 
seria simplesmente executar um comando 
NEW e eliminar completamente o pro- 
grama que esta em execucao na memo- 
ria caso o usuano tente interrompe-lo. 
Neste caso, ap6s o NEW, o controle do 
computador retornara as maos do usua- 
rio mas, mesmo que seja usado o coman- 
do LIST, a memoria estara" apagada e 
nao sera possivel, aos menos experien- 
tes, recuperar a listagem que estava sen- 
do gravada antes da execucao do coman- 
do NEW. Lembre-se, portanto, dos valo- 
res que devem ser colocados para inibir 
o uso da tecla RESET: POKE 40286,35: 
POKE 40287,216. 

Existe ainda um outro recurso que 
impede que programa seja listado mes- 
mo se a execucao for inter rompida. Bas- 
ta que, logo no initio da execucao do 
programa, seja colocado, no endere90 
de mem6ria 214 (D6 em hexadecimal), 
um valor maior que 127. Quando o va- 
lor encontrado neste endere90 for 
maior que 127, todas as entradas de ca- 
racteres feitas pelo teclado serao inter- 
pretadas como se fossem o comando 
RUN. Qualquer coisa que seja digitada 
pelo usuario faii com que a execucao 
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do programa que esteja na memoria vol- 
te a ser efetuada novamente. 

Use entao POKE 214,255 logo no 
principio de seu programa. Caso o usua- 
rio interrompa a execucao, o comando 
do computador, aparentemente, ira" re- 
tornar as suas maos. Entretanto, qual- 
quer sequencia de caracteres que ele ten- 
te introduzir pelo teclado nao sera inter- 
pretada de outra forma senao como 
uso do comando RUN - e a execucao 
do programa sera" retomada novamente 
sem que seja possivel listd-lo. 

MARCA REGISTRADA 

Vamos ver agora como o programa- 
dor podera" registrar uma linha, ao final 
de qualquer listagem, com sua marca re- 
gistrada — sem que esta linha possa ser 
retirada com facilidade e sem que isto 
signifique a mutilacao do programa. 

Todas as linhas que sao registradas 
pelo interpretador BASIC tern sua nu- 
meracao de a 63999. Podemos, alte- 
rando os valores dos bytes que codifi- 
cam o programa para o computador, 
aumentar estes valores de forma a nao 
ser possivel eliminar as Linhas com 
numeracao alterada e nem retira-las da 
listagem do programa. 

Os numeros relativos as linhas sao re- 
gistrados, internamente, com uso de 
dois bytes. Quando colocamos nossa 
marca registrada em uma linha, pode- 
mos, modificando estes dois bytes, alte- 
rar este numero para um valor que nao 
possa ser adulterado ou ehminado pelo 
interpretador BASIC. Sera" uma linha 
protegida, bem mais dificil de ser altera- 
da do que as outras. 

Considere a seguinte rotina: 

60000 B = PEEK (105) +256*PEEK (106) : FOR 
A = B - 256 TO 3 : IF PEEK ( A ) +PE 
EK ( A + 1)* 256 <>63999 THEN NEXT 

60010 POKE A, 255 : POKE A+1,255 : DEL 600 
00,60010:END 

63999 REM MARCA REGISTRADA DO PROGRAMADOR 

Se voce inseri-la no final de seus pro- 
gramas, marcando a linha 63999 com 
sua marca registrada e dando um RUN 
60000, a rotina encontrara sua marca na 
listagem do programa e mudara o valor 
dos bytes que definem o numero da li- 
nha. Uma vez feito isto, sera" bem mais 
dificil retird-la. 

Experimente executar a rotina listada 
e use o comando LIST para ver o resul- 
tado. As Linhas 60000 e 60010 terao de- 
saparecido e a linha remanescente, com 
a marca registrada, estara" com um 
numero impossivel de se atingir com o 
uso unico do interpretador BASIC. B 

m 



Rudolf o Horner Junior cursa CiSncia da Com- 
putaoao na Unicamp e 6 sdcio da Potencial 
Software, firma que produz programas espe- 
ciais para microcomputadores em Campinas, 
SP. 




Na hora de comprar seu 
Minicomputador, Progra- 
mas, Impressoras, etc. 

Consulte quern joga 
aberto. Revenda autoriza- 
da da DIGITUS — MICRO- 
DIGITAL — DISMAC — 
POLYMAX. 

Tambem Manutencao au- 
torizada DIGITUS. 
Com prove nosso atendi- 
mento! 

Preco justo por servico 
correto. 
TESBI ENG. TELEC. LTDA. 

RUA GUILHERMINA, 638 - ENCANTADO 
TEL.: (021) 591-3297 e 249-3166 



SUPPLY 



EM PD, TUDO 

O QUE VOCfe 

NECESSITA NUM 

S6 FORNECEDOR! 

E a Supply nao tern apenas todo e qualquer ti- 
po de material para CPD's. Tem tambem os 
melhores pre^os e a mais rSpida entrega. Isso 
porque a Sn ppty tem um estoque completo das 
melhores marcas existentes no mercado, po- 
dendo assim atender — com a mesma eflcien- 
cia — desde empresas de grande porte ate pe- 
quenos consumidores. 

Se o seu |Koblema for supri men tos para Proces- 
samento de Dados, preco ou prazo de entrega, 
consulte antes a Supply. 

Voc* far* bona naflocioa c bona anigos. 
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Suprimentos e Equipamentos para Proces- 

samento de Dados Ltda. 

Rua Padre Leandro, 70 — Fonseca 

CEP 24120 — Tel.: 722-7937 Niter6i — RJ. 



OUTROS ESTADOS: 

Pemambuco, Rio Grande do Norte e Parai- 
ba: Filial Recife: (081) 431-0569 — Alagoas: 
CORTEC: (082) 221-5421 — Ceara: DATA- 
PRINT: (085) 226-9328 — Mato Grosso: FOR- 
TALEZA: (067) 382-0173 



Co mo voce se relaciona em seu ambiente de trabalho? E seus colegas? 
Faca uma pesquisa atrave's deste programa, para o CP-50Q e compatfveis 



O micro psicologo 



EU 
ABERTO 

ABERTURA 
20% 

EU 
SECRETO 



EU 
CEGO 



EU 
DESCONHECIDO 



Janela de Johari nao e um teste de 
personalidade,mas uma pesquisa 
sobre o comportamento de um 

individuo em um ambiente qualquer 
onde ele tenha que se relacionar com 
outras pessoas. Este que trazemos aqui, 
em forma de programa para os micros 
da linha TRS-80 (foi rodado em um 
CP-500), enfoca o ambiente de trabalho. 
Quem estiver sendo analisado devera" 
responder a 20 perguntas. Para cada 
uma existem duas alternativas e a pessoa 
devera" distribuir cinco pontos entre elas 
(voce entendera melhor rodando o 
programa, pois ele 6 totalmente 
auto-explicativo). Ao final, aparecera" na 
tela a representacao grafica da Janela 
de Johari de quem fez o teste (veja um 
exemplo na figura 1). 
Os quadrantes significam: 

• EU ABERTO - o que eu e os outros 
sabem sobre mim 

• EU SECRETO - o que so eu sei 
sobre mim 

• EU CEGO — o que eu nao sei mas os 
outros sabem sobre mim 

• EU DESCONHECIDO - o que nem 
eu nem ninguem sabe sobre mim. 

Para que voce possa aplicar o teste, 
entre primeiro com a rotina para 
gravacao das perguntas; logo em seguida 
entre com elas. Por ultimo, digite o 
programa principal. Voce podera gravar 
em fita ou disquete, e o proprio 
programa o orientara a esse respeito. 
programa foi desenvolvido para 
sistemas com 48Kb, mas adaptando-o 
para que a entrada de questoes seja feita 
uma a uma, podera ser rodado com 
16Kb. 



Antonio Macchi Jr. 6 formado em Admipistra- 
cao de Empresas pela Universidade Federal do 
Rio Grande do Sul. Desde 1980 utiliza um 
TRS-80, desenvolvendo programas aplicativos 
e jogos. 



Antonio Macchi Jr. 



Rotina para gra vacao 
das perguntas 



uma aplicicao d« PSICOLOGIA 
em MICROCOMPUTADOR 

A. MACCHI JR. & A. MACCHI 

SALVADOR - BAHIA - MAI/82 

fon*: (071) 248.13.87 
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Cl_S:PRINT:PRINT 

1 PRINTTABC 15 > "* «»»♦**»»•»»»***** 
PRINTTABC 15) "* JANELA DE JOHARI 
PRINTTAB( 15 ) "* 
PRINTTAB< 15 ) " * 
PRINTTAB< 15 ) "* 
PRINTTAB< 15) "* 
PRINTTAB< 15 ) "» for 
PRINTTAB< 15) "» 
PRINTTABI 15) "» 

10 PRINTTAB< 15 > "» **«»»*»»»»**»»»*•*»* 

11 FORI7.= lTO1000sNEXTI7. 

15 CLEAR 15000 :DI MP* (20) . A* < 20 ) » B» ( 20 ) » D7. ( 20 ) » G» < 58 ) 

20 P*=" MENU DE ROTINAS • : GOSUB1 000 i PRINT3340, " 1 . LER QUESTOES DA 

FITA" :PRINT3404. "2. LER QUESTOES DO DISCO' s PRINT3468. " 3. DIGITAR 
QUESTOES" =PRINT3532. "4. GRAVAR QUESTOES EM DISCO" : PRINT3596. "5 . GR 
AVAR QUESTOES EM FITA" : PRINT3832» STRING* ( 60. 1 40 ) 

25 PRINT3909, "DIGITE O NUMERO DA ROTINA DESEJADA" 

26 R*=INKEY«: IFR*=" "ORR*<" 1 " ORR*> " 5 " THEN26 
30 ONVAL ( R* > GOTO 100, 1 50. 200 1 250 1 300 

100 GOSUB1200SGOTO20 

150 GOSUB 1 100: GOTO20 

200 P*=" INSTRUCOES " s GOSUB1000 « PRINT : PRINT : PRINT s PRINTTAB< 1 

2) "OS ESPACOS EM BRANCO CONSTANTES DA RELACAO DE" : PRINTTAB < 12 ) " QUE 

STOES DEVEM TAMBEM SER DIGITADOS PARA FOR-" 

205 PRINTTAB( 12) "MATAR MELHOR A TELA NA OCASIAO DA EXECUCAO DO"»PR 

INTTAB< 12) "PROGRAMA. " : PRINTa832t STRING* < 60. 1*0) JPRINT3914, " QUANDO 

PRONTO DIGITE <P>" 

210 R*-INKEY*: IFR*=" P" THEN215ELSE210 

215 P*=" DIGITACAO " « FORI 7.«1 TO20IGOSUB 1000 1 PRINT 

220 PRINT"P*<" SITU" )=" ! : INPUTP*( IT.) 

225 PRINT"A*< " ; 17.? " ) = " * : INPUTA*< 17.1 

230 PRINT"B*< " * 17.5" )=" ? :INPUTB*< IX) 

235 PR I NT " D7. < " 5 1 7. ? " > = " S = I NPUTD7. ( 1 7. > 

240 NEXTIX:GOTO20 

250 P*=" GRAVACAO EM DISCO "SGOSUB1000 

255 OPEN-O" « 1 i "QUESTOES/TXT" t FORI7.= 1TO20I PRINT3529. "GRAVANDO QUEST 

AO NUMERO <"!I7.*"> DE 20 QUESTOES" « PRINTW1 . P* < 17. >« PRINTW1 . A* < IX >« P 

RINTW1 .B*< 17.) IPRINT»1 t D7. < 17.) : NEXTI 7. 1 CLOSE IGOTO20 

300 P*=" GRAVACAO EM FITA ": GOSUB 10001 PRINT : PRINT" PREPARE CASSETE: 

• sPRINT3529t "COLOQUE FITA VIRGEM E PRESSIONE <PLAY>+<RECORD> " : PRIN 

T366B. "QUANDO PRONTO DIGITE <P>" 

305 P*=INKEY»: IFP*=" P" THEN310ELSE305 

310 PR I NT3256. "GRAVANDO QUESTOES " s PRINT3529. STRING* < 48t 32) s 

PRINT366S.STRING*<25.32) : PRINT3832. STRING* < 62. 140) 8PRINT3896. "AG 

RAVACAO DO ARQUIVO DE QUESTOES DEMORA CERCA DE 8 MINUTOS" 

315 FORI7.= 1TO20=PRINT3529, "QUESTAO NUMERO <"?I7.;"> DE 20 QUESTOES" 

:PRINT#-1 t P*( 17) :PRINT**-1 . A* < 17. ) !PRINT«t-l , B* < 17.) :PRINT#-1 iDX(I%)«N 

EXT 1 7. IGOTO20 

399 END 

1000 CLS:PRINTCHR*< 188) ;STRING*(5. 140) ! " JANELA DE JOHARI ": STRING 

*(38. 140) ;CHR*< 188) :PRINTCHR*< 191 ) ; STRING* < 6. 32) : "uma apl i cacao de 

PSICOLOGIA em MICROCOMPUTADOR • * CHR* < 1 91 ) : PRINTCHR* < 143 > * 

STRING* <38i 140) ; P* ! STR I NG* ( 5 t 140) : CHR* < 143) : RETURN 
1100 P*=* LEITURA EM DISCO ": GOSUB 1000 
1 105 OPEN" I " , 1. "QUESTOES/TXT" : FOR 1 7.= 1 TO20 : PRINT35 29, "LENDO QUESTAO 

NUMERO <"SI7.;"> DE 20 QUESTOES" : I NPUT#1 » P* ( 17. ) : I NPUT# 1 , A* < 17. ) : INP 
UT**1 ,B*< 17. ) : INPUT**1 ,DX( 17.) s NEXT 17. : CLOSE : RETURN 

1200 P*=" LEITURA QUESTOES ": GOSUB 1 000 : PR I NT : PRINT : PR I NT" PREPARE C 
ASSETE: " :PRINT3529, "COLOQUE FITA DE QUESTOES E PRESSIONE <PLAY>"sP 
R I NT3666* "QUANDO PRONTO DIGITE <P>" 
1203 P*=INKEY»: IFP*=" P" THEN 1 205ELSE 1 203 

1205 PRINT3320. "LENDO QUESTOES ": PRI NT3529. STRING* < 45 , 32 ): PRI N 
JTa666-5 STFTblG4L25_> 3J2_I LP RJN. T »?""'"•• STBLN6*.' A^,_i <J0 ) : PPIHT3R 1 ''.. "_ .A l_F.LT 
URA DO ARQUIVO DE QUESTOES DEMORA CERCA DE 8 MINUTOS" 

1210 FORI7.= 1TO20: PR I NT3529, "QUESTAO NUMERO < " ! I 7. ; " > DE 20 QUESTOES 
" : INPUT**- 1 , P*< 17. ) : INPUT**- 1 , A* < I 7. ) : INPUT**-1 , B*_< I 7. ) : I NPUT**- 1 , D7. < 17. ) : 
NEXTI7.: RETURN 



Perguntas 



uISTAGEM DAS QUESTOES DE 'JANELA DE JOHARI ' 



) - SE UM COLEGA TEn UM CONFLITO DE PERSONAL I DADE COM UM OU- 
TRO FUNCIONARIO DA ORGANIZACAO QUE TRA8ALHA EM OUTRO 
DEPARTAMENTO MAS CUJA COOPERACAO E INDISPENSAVEL AO 
NOSSO DEPARTAMENTO EU 

> - DIRIA AO MEU COLEGA OUE ACHO OUE ELE E PARCIALMENTE 

RESPONSAVEL POR ESTE TIPO DE CONFLITO COM O OUTRO 
FUNCIONARIO E TENTARIA LHE MOSTRAR COMO ESTA OUTRA 
PESSOA ESTA SENDO AFETADA POR ELE 

> - NAO ME ENVOLVERIA NA QUESTAO COM O RECEIO DE VIR A 

ME INDISPOR COM AMBOS CASO TENTASSE QUALQUER IN- 
TERFERENCE 

> - 1 

> - SE EU DESCUBRO QUE UM COLEGA DE TRABALHO COM QUEM TIVE 

UMA DISCUSSAO ACIRRADA EM PASSADO RECENTE PASSA A 

FALAR MAL DE MIM A TODOS OS OUTROS E A DEMONSTRAR 
SEMPRE MA VONTADE EU 

) - NAO CHAMARIA ATENCAO SOBRE O SEU COMPORTAMENTO COM 

RECEIO DE PIORAR AS COISAS E DEIXARIA OUE O TEMPO 
CUIDASSE DE TUDO 

> - COMENTARIA COM ELE O SEU COMPORTAMENTO E PERGUNTARIA 

DE OUE MANE IRA ELE ACHA QUE NOSSA BRIGA NO PASSADO 
ESTA AFETANDO NOSSO RELAC IONAMENTO 

> - 2 



ME TRATAR 



PER- 



P»< 3 ) - SE UM MEU SUBORDINADO COMECA A ME EVITAR E 

DE UM MODO OBEDIENTE POREM RESERVADO EU 
A*< 3 > - CHAMARIA ATENCAO SOBRE O SEU COMPORTAMENTO 
GUNTARIA SOBRE O QUE SE PASSA EM SUA MENTE 
B»< 3 ) - SEGUIRIA O SEU EXEMPLO E MANTERIA NOSSOS CONTATOS 
EM BASES PURAMENTE COMERCIAIS DESDE QUE E ISSO 
QUE ELE PARECE ESTAR QUERENDO 
DV.< 3 > - 3 

p«< 4 > - se numa discussao com colegas a conversa se dirigir a up 
assunto acerca do qual eu sou 8uposto de saber devido 
a8 minhas oualificacoes prof i ssi ona is mas que em rea- 
l i dade ignoro totalmente eu 
*•< 4 ) - tento desviar o assunto para outra direcao antes que 

eu seja cham a do a omitir minha opiniao 
b«< 4 > - confesso minha ignorancia qualquer que seja a reacao 
de meus colegas e encorajo o cont i nuamento da dis- 
cussao do mesmo assunto 
dv.< * » - 4 

p»< 3 ) - se um de meus colegas tenta me dizer que ele acha oue 
estou fazendo coisas que estao prejudicando o meu 
relac ionamento com os demais colegas de trabalho 

EU 
A»< 3 ) - O ENCORAJARIA A DESCREVER COM DETALHES MEU COMPOR- 
TAMENTO E A SUGERIR MANE I RAS PELAS QUAIS EU PO- 
DERIA MUDAR 
B»< 3 > - TENTARIA LHE EXPLICAR TAO CLARAMENTE QUANTO POSSIVEL 

PORQUE ME COMPORTO DA MANEIRA QUE ELE DESCREVE 
DX< 3 > - 3 

T»(~6~ > - SE MEO SUPCRTOR" AlmEJASSE UMA P6SICAO MAIS ALTA PARA A " 
QUAL EU PENSO QUE ELE NAO POSSUI AS OUALIFICACOES 
NECESSARIAS E TIVESSE SIDO CONVIDADO PELA ALTA DI- 
RECAO PARA TAL POSICAO EU 
A»( 4 ) - NAO MENCIONARIA MINHA PREOCUPACAO NEM A MEU SUPE- 
RIOR IMEDIATO NEM A ALTA DIRECAO E DEIXARIA A 
ELES A TAREFA DE DECIDIR SOBRE O QUE E MELHOR 
PARA A ORGANIZACAO 
B»( b ) - COMUNICARIA MINHA PREOCUPACAO AO MEU SUPERIOR E A 
ALTA DIRECAO E ENTAO DEIXARIA A ELES QUALQUER 
DEC I SAO DECORRENTE DE MINHA INFORMACAO 
DV.< 6 ) - « 

P«< 7 ) - SE EU SENTISSE QUE MEU SUPERIOR ESTA ME TRATANDO INJUS- 

TAMENTE EU 
A»< 7 ) - LHE PERGUNTARIA SE EXISTE ALGUM PROBLEMA QUE ENVOL- 
VA A MINHA PESSOA E OUE EU DESCONHECO E POROUE 
EU ESTOU SENDO INJUSTAMENTE TRATADO 
B»( 7 ) - NAO PERGUNTARIA NADA MAS FICARIA NA EXPECTATIVA DE 

QUE ELE ABORDASSE O ASSUNTO 
D7.< 7 ) - 3 

P«< 8 > - SE EU ESTIVESSE PREOCUPADO COM ASSUNTOS PESSOA IS E MEU 
SUPERIOR ME DISSESSE QUE EU ANDO ULTIMAMENTE MUITO 
IRRITADO CONSTANTEMENTE DISCUTINDO COM TODOS E BRI- 
GANDO PELAS MENORES COISAS EU 
A»( 8 ) - DIRIA A ELE QUE ESTAVA COM ALGUNS PROBLEMAS PESSOAIS 
E QUE POR ISSO ANDAVA MUITO NERVOSO NO MOMENTO PE- 
LO QUE PREFERIA NAO SER AMOLADO 
B»( B ) - OUVIRIA SUAS RECLAMACOES MAS NAO TENTARIA EXPLICAR O 

PORQUE DE MEU COMPORTAMENTO 
DX< B ) - 2 

P«< 9 > - SE EU TIVESSE OUV I DO BOATOS E RUMORES SERIOS ACERCA DE 
UM COLEGA - ALGO QUE O PODERIA PREJUDICAR E SE O 
MESMO ME PERGUNTASSE SE EU SAB I A ALGO SOBRE O 
ASSUNTO EU 
A«< 9 ) - DIRIA QUE IGNORO TOTALMENTE O ASSUNTO E SUGERIRIA 
QUE ESQUECESSE A QUESTAO POIS NINGUEM IRIA ACRE- 
DITAR EM SEMELHANTE BOATO 

- DIRIA A ELE TUDO O QUE OUV I QUANDO OUV I E 
DE QUEM O OUV I 



B»< 9 > 
D7. < 9 ) 



P»< 10 ) - SE UM DE MEUS SUBORDINADOS ME DISSESSE QUE TENHO UM CON 
- FLITO DE PERSONALIDADE COM OUTRO FUNCIONARIO DE MEU 

NIVEL QUE TRABALHA EM OUTRO DEPARTAMENTO CUJA COOPE- 
RACAO E INDISPENSAVEL AO NOSSO EU 
A»< IB ) - CONSIDERARIA SEU COMENTARIO TOTALMENTE DESPROPOS I TADO 

E DESENCORAJARIA SUA REPETICAO NO FUTURO 
B»< 10 > - D I SCUT IRIA O ASSUNTO ABERTAMENTE COM ELE E PROCURARIA 
VERIFICAR DE QUE MODO ESSE PROBLEMA ESTA AFETANDO O 
RENDIMENTO DO TRABALHO DO NOSSO DEPARTAMENTO 
D7.< 10 > - 2 



P«< 11 ) - SE O MEU RELAC IONAMENTO COM UM SUPERVISOR DIRETO ESTI- 
VESSE SENDO PREJUDICADO POR DISCUSSOES CONSTANTES A 
RESPEITO DE UM MESMO ASSUNTO DE ALTA IMPORTANCIA 
PARA NOS DO IS EU 

A»( 11 ) - ME TORNARIA MAIS CAUTELOSO EM MINHAS CONVERSAS COM 
ELE PARA EVITAR QUE TAL ASSUNTO VOLTASSE A BAILA 
E PREJUDICASSE AINDA MAIS O NOSSO RELACINAMENTO 
B«< 11 ) - DIRIA A ELE QUE NOSSO RELAC IONAMENTO ESTA SENDO A- 
FETADO PELA CONTROVERSIA SOBRE REFERIDO ASSUNTO 
E SUGERIRIA DISCUTI-LO ATE QUE O MESMO FOSSE RE- 
SOL VI DO 
DV. < 1 1 ) - A 

P»< 12 > - SE EM UMA REUNIAO COM A PARTICIPACAO DE MEU SUPERIOR E 
CHEFES DE OUTROS DEPARTAMENTOS FOSSE SUGERIDO POR UM 
DESSES CHEFES QUE O MEU DESEMPENHO NO MEU DEPAR- 
TAMENTO FOSSE D I SCUT I DO EU 
A«( 12 ) - REAGIRIA A TAL SUGESTAO ARGUMENTANDO QUE MEU PROPRIO 
SUPERVISOR TEM MELHORES CONDICOES DE SOZINHO JULGAR 
MEU DESEMPENHO 
B»< 12 ) - RECEBERIA DE BOM GRADO A OPORTUNIDADE DE APRENDER CO- 
MO ELE AVAL I ARIA MEU TRABALHO E ENCORAJARIA CO- 
MENTARIO DE TODOS OS DEMAIS 
DV.< 12 > - 2 

P»< 13 ) - SE UM DE MEUS COLEGAS COMENTASSE COMIGO SUA HOTILIDADE 
COM RELACAO A OUTRO COLEGA O QUAL NA OPINIAO DELE 
TEM SE PORT ADO INJUSTAMENTE COM OS DEMAIS COM O QUE 
EU CONCORDO INTEIRAMENTE EU 
A»< 13 ) - O OUVIRIA MAS NAO EXPRESSARIA MEU PONTO DE VISTA 
COM RECEIO DE QUE ELE NAO MANTENHA CONFIDENCIA 
SOBRE MINHA OPINIAO E POR ISTO VENHA A ME COLOCAR 
EM SITUACAO EMBARACOSA 
B«< 13 ) - O OUVIRIA E EXPRESSARIA TAMBEM MEU PONTO DE VISTA 
PARA QUE ELE SOUBESSE MINHA OPINIAO QUANTO AO 
CASO EM PAUTA 
DX( 13 > - 4 

P»( 14 ) - SE EU TIVESSE FORTES RAZOES PARA SUSPEITAR QUE UM BOATO 
MUITO SERIO A MEU RESPEITO ESTAVA CIRCULANDO ENTRF 
MEUS SUBORDINADOS E OUE UM DELES EU TENHO CERTEZA DE 
QUE CONHECE O ASSUNTO EU 
A»( 14 > - EVITARIA LEVANTAR A QUESTAO COM ELE E DEIXARIA A ELE 

QUALQUER INICIATIVA DE ABORDAR O ASSUNTO 
B«( 14 ) - ARRISCARIA COLOCA-LO NA PAREDE E LHE PERGUNTARIA 

DIRETAMENTE O QUE ELE SABE SOBRE O ASSUNTO 
DV. ( 14 ) - 2 

P»( 13 > - SE EU VIESSE OBSERVANDO UM DE MEUS SUBORDINADOS E FOSSE 
DA OPINIAO QUE ELE NAO ESTAVA SE RELACIONANDO BEM 
COM SEUS COLEGAS DA MANEIRA MAIS EFICIENTE EU 
A»< 13 ) - MANTERIA MINHAS OPINIOES PARA MIM MESMO PARA EVITAR 
ESTAR INTERFERINDO COM COISAS QUE NAO SAO DE MINHA 
ALCADA 
B»< 13 ) - ARRISCARIA SER. VISTO COMO UM INTROMETIDO E LHE FALA- 

RIA SOBRE MINHAS OBSERVACOES E O QUE PENSO DELAS 
DV. ( 13 ) - 4 

P»( It. ) - SE EU ESTIVESSE CONVERSANDO COM DO IS DE MEUS SUBRODINA- 
DOS E UM DELES INADVERT IDAMENTE MENCIONASSE UM PLANO 
DE ALGUNS EMPREGADOS QUE EU DECONHECIA E QUE VIRIA A 
AFETAR MEU DEPARTAMENTO EU 
A»< lb > - OS PRESSIONARIA PARA OBTER MAIS INFORMACOES COM RES- 



PEITO A ESTES PLANOS E QUAL A OPINIAO PESSOAL DE 
CADA UM DELES 
B»< 16 > - DEIXARIA A ELES A DECISAO DE CONTINUAR FALANDO OU NAO 

ACERCA DESTES PLANOS 
DV. < 16 ) - 3 

P*< 17 ) - SE MEU SUPERIOR DIRETO PARECESSE ESTAR SEMPRE PREOCUPAD 
O SE IRRITANDO COMIGO PELAS MINIMAS COISAS EU 

A»< 17 ) - O TRATARIA COM LUVAS DE PELICA A PARTIR DESTE MOMEN- 
TO POR ASSUMIR QUE ELE DEVERIA ESTAR COM ALGUM PRO- 
BLEMA PESSOAL QUE NAO E DE MINHA CONTA 
B»< 17 ) - TENTARIA FALAR COM ELE O ASSUNTO E O DEIXARIA SABER 
QUE SEU COMPORTAMENTO ESTA AFETANDO NOSSO RELACIO- 
NAMENTO 
DV. < 1 7 > - 4 

P»( 18 > - SE EU COMECASSE A TER MA VONTADE COM MEU SUPERIOR IMEDI 
ATO E SENTISSE QUE ISTO ESTAVA INTERFERINDO COM MINHA 
HABIL1DADE DE TRABALHAR COM ELE DE UM MODO EFETIVO EU 
A»l 18 > - NAO LHE DIRIA NADA DIRETAMENTE MAS DEIXARIA SABER DE 
MEUS SENTIMENTOS DE OUTRAS MANE I RAS COMO P/EXEM- 
PLO TRATA-LO MAIS FRIAMENTE SO DISCUTIR NEGOCIOS 
ETC 
B»< 18 ) - LHE EXPRESSARIA DIRETAMENTE MEUS SENTIMENTOS E TENTA- 
RIA DIRIMIR NOSSOS PROBLEMAS DE RELAC IONAMENTO PARA 
QUE VOLTASSEMOS AO TRABALHO 
DV.< IB > - 4 

P»< 19 J - SE EU ESTIVESSE DISCUTINDO COM UM DE MEUS COLEGAS MAIS 

SENS I VE IS SOBRE O SEU DESEMPENHO EU 
A»< 19 > - EVITARIA ABORDAR OS SEUS ERROS COM RECEIO DE AFETAR 

O SEU MORAL 
B»< 19 ) - FOCAL I Z ARIA BASICAMENTE OS SEUS ERROS DE MODO A A- 

JUDA-I n A MELHORAR SEU DESEMPENHO 
DV.< 19 ) - 4 

P»< 20 > - SE EU SOUBESSE QUE ESTAVA SENDO CONSIDERADO PARA UMA 
POSICAO SUPERIOR NA ORGANIZACAO E O MEU RELACIONA- 
MENTO COM MEUS ATUAIS COLEGAS VIESSE DEIXANDO MUI- 
TO A DESEJAR EU 
A»( 20 > - DISCUTIRIA COM ELES MEUS DEFEITOS COMO PESSOA DE MO- 
DO A PODER ME MODIFICAR 
B»< 20' > - TENTARIA ANALISAR MEUS DEFErTOS POR MIM MESMO DE MO- 
DO A PODER ME MODIFICAR 
DV. ( 20 > - 3 
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uffli apiicacao oe PSICOLOGIA 
em ,"i:CR0C0riPUTAD0R 



10 CLS:PRINT:PRINT 
•20 PRINTTAB( 15) "* **#**•»***#***»##•»**" 
30 PRINTTABU5)"* JANELA DE JOHARI *" 

40 PRINTTAB(15>"« »" 

50 PRINTTABU5)"* 
60 PRINTTABC15>"« 
70 PRINTTAB<15)"* »" 

80 PRINTTAB(15)"« por: A. MACCril JR. & A. MACCHI III *" 
90 PRINTT6B<15)*» SALVADOR - BAHIA - MAI/Bi *" 
100 PRINTTAB(15J"» fone: (071) 248.i3.87 »" 
110 PRINTTAB(15)"* »«»»***#»»*#*»#♦»»»" 
120 'FORI7.= 1TO1000:NEXTI7. 

130 CLEAR15000:DIMP*(20).A*(20>.3*<20>.D7.(20).G$(5B).I$(30> 

140 "P*=" INFORMACOES " :GOSUB1000:PRINT: PRINT:PRINT" INFOR:*IE POR FAVOR:" 
:PRINT:PRINT:PRINT:PRINTTAB( 15) ' SE UTILIZA DISCO DIGITE D> SE CASSETE 
<C>" 

150 'R*=INKEY*:IFR*=""THEN21 
160 ' IFR*="D"THENGOSUB1100:GOTO30 
170 ' IFR*="C"THENGOSUB1200:GOTO30 
180 'G0T021 
190 GOSUB1020 

200 P*=" INSTRUCOES " :GOSUB1000 : PRINT3832. STRING$<63. 95 ) :PRINTa910. "D 
esej» Instrucoes <S>im <N>ao" 

210 Y*=INKEYS:PRINTa910. "DeseJa Instrucoes <S>im <N>ao" :F0RT=1T08:NEXTT 
220 IFY*="N"THEN250 

230 IFY*="S"THENGOSUB1070 :GOSUB1340 IGOTO250 

240 PRINT3910."DeseJa Instrucoes < >im < >ao" :FORT=1TO8:N£XTT:GOTO210 
250 P*=" IDENTIFICACAO ":GOSUB1000 :PRINT3580.: : INPUT"QUAL SEU NOME"; 
N*:PRINT3644. ;: INPUT" DATA (DD/MM/AA) " ;DS 
260 P*=" QUESTAO/RESPOSTA " :FORI7.= 1TO20 

270 CLS:GOSUB1000 :PRINTIXiTAB(8)P*( IX) :PRINT"<A>" ;TAB(8) A*( 17.) :PRINT"<3>" iT 
AB(8)B*(IX) 
280 GOSUB 320 

290 ON OX(IX) GOSUB 350 i370 i 390 .410 
300 NEXT IX 
310 SOTO 430 

320 PRINT3896.STRING*(62. 140) :A=0:B=0 

330 INPUT'PONTOS QUE ATRIBUE PARA <A>.<8> - NAO ES'iUECA A+3=5 "iA.B 
340 IF A+B=5 THEN RETURN ELSEGOSUB1000 : °RINT3896. "PONTUACAO INCORRETA - "E 
NTE NOVAMENTE ■: FORJX=1TO500:NEXTJX: JX=I7.:FORIX=JXTO20:GOTO270 

350 X=X+A 
360 RETURN 
370 Y=Y+B 
380 RETURN 
390 Y=Y+A 
400 RETURN 
410 X=X+B 
420 RETURN 
430 IFX<14THENAB=1 
440 IFX>13ANDX<20THENAB=10 
450 IFX>19ANDX<24THENAB=20 
460 IFX>23ANDX<27THENAB=30 
470 IFX>26ANDX<29THENAB=40 
480 IFX>28ANDX<31THENAB=50 
490 IFX>29ANDX<32THENAB=60 
500 IFX>31ANDX<35THENAB=70 
510 IFX>34ANDX<40THENAB=80 
520 IFX>39ANDX<47THENAB=90 
530 IFX>46THENAB=99 
540 IFY<17TH£NFB=1 
550 IFY<24ANDY>16THENFB=10 
560 IFY<27ANDY>23THENFB=20 
570 IFY<29ANDY>26THENFB=30 
580 IFY:31ANDY>28THENFB=40 
590 IFY;33ANDY>30THENFB=50 
600 IFY<35ANDY>32THENFB=60 
610 IFY<37ANDY>34THENFB=70 
620 IFY<39ANDY>36THENFB=80 
630 IFY<42ANDY>38THENF3=90 
640 IFY>41THENF3=99 
650 GOSUB 1450 

660 CLS:PRINTai5.-- JANELA DE JO.HARI-" 
670 PRINT381."oe: " ;N$ 

680 PRINT3145." > feedback >";FB;"7." 

690 PRINTa261."EU~>"; 
700 PRINT3308. " <— EU" ; 
710 PRINT3323. "ABERTO" ; 
720 PRINT3375. "CEGO"; 

"ABERTURA" ;357S.AB;"7." 
'EU -->"! 

■<— EU"; 

"SECRETO"; 

"DESCONHECIDO" ; 
780 FORK=25TO101:SET(K.9):SET(K.40):NEXTK 

790 FORK=9TO40:SET<25.K) :SET(26.K> :SET< 100. K) :3ET( 101 i K) :NEXTK 
800 FORL1=25TO100STEP4:SET(L1. <AB».31 )+9.5) iSETCLl+li (AB».31 )-t-9.5 ) :NEXTL1 
810 FORKl=9TO40S7EP2:SE7<<FB*.755>+25.Kl):SET<<F3».755)+26.Kl>:NEXTKi 
820 PRINT3911. "<0>utro teste <I>mpressao <F>im" 

830 RS=INKEY*:PRINT391ii '< >utro teste < >mpressao < >im" :F0RT=1T08:NEXTT 
840 I FRS= " 0" THENAB=0 : FB=0 : X=0 : Y=0 I GOTO250 
850 IFRS="I"THEN890 

860 IFR$="F"THENP*=" FlM DE ROTINA ": CLS: GOSUB 1000 :l=896:PRINT3520. "Mux - 
o obri9ado - fox urn prazer es£ar com voce. .." :F0RI=1T063:PRINT3L+; i CHRSf 140) 
:FORJ=1TO20:NEXTJ:NEXT::C-S:RUN"MICROSIS/BAS" 
870 IFR*="F"7riEN860 

880 IFRS=""THENPRINT39l:,"<0>utro teste <I>mpr-essao <F>xm" :F0RT=1T08:NEXTT 
:GOTO830 l , 

890 PRINT3911.STRING*<45.32) : ' ( 

900 R*=INKEY$:PRINT3913. "Guano* impressora pronta < >* :F0RT=1T08:NEXTT 
910 IFR$="P"THENLPRINTCHR*(27);CHRS(28):GOTO920 ELSEPRIMT3913. "<Suando impre 
ssora pronta <P>" :FORT=1TO8:NEXTT:GOTO900 

920 G*U) = "Representacao 9ra.fi ca da 'JANE-A DE JOHARI' de: "+N*:Gt<2)=" 

> feed-back < " :GS(3)=STRING*(40. "*" ) :G*(50>=STRING$(40, "*" ) 



730 PRINT3512i 
740 PRINT3772. 
750 PRINT3B20. 
760 PRINT3B34. 
770 PRINT3B84. 



930 F0RI=4T049:G$(I) = "*"+STRING$(INT(FB».4).32) + "."+STRING*(37-(F3*.4)i32)->-" 
*": NEXTI : G»(INT(AB». 48) +2) ="*"+STRING*( 38. ".")+"»"+" Abertura" 

940 LPRINTG*<1):LPRINT" " :i_PRINTTAB( 10)G*<2) :LPRINT" " :LPRINT" " 
950 F0RI=3T06:^PRINTTAB( 10)G*( J ) :NEXTI 

960 LPRINT-EU >• ;TAB( 10)G*(7) ;TAB(52> "<• EU" HJ»8INTTA8< 10)G*(8) :LP 

RINT-ABERTO" ! TAB( 10)G*(9) ;TAB(52)" CEGO" ■ 

970 FORI=10TO46:LPRINTTAB(10)G$(I):NEXTI:LPRINT"EU >■ STAB< 10)G*<47) iTAB( 

52) "< EU":L?RINTTAB(10>G*<48>:LPRINT>"SECRETO";TAB(10)G»<49>;TAB(52)" 

DESCONHECIDO" :LPRINTTAB( 10)G$(50> 

980 LPRINT" ":LPRINTTAB(8)"Abertura=";AB;"7. / Feed-back=" :FBi "7. / em: " ; D$ 

990 GOTO820 

1000 CLS:PRINTCHR*(188);STRING*(5.140>:" JANELA DE JOHARI " ;STRING*( 38. 140) ; 

CHRS(188):PRINTCHR*(19i);STRING*(6.32);"uma apl icacao de Psicolo9ia em Micro 

computador • tCHR*(191) :PRINTCHRS( 143) ; STRING* (38. 140) :P$;STRING*(5. 1 

40) ;CHR*( 143): RETURN 

1010 P$=" LEITURA EM DISCO ":GOSUB!000 

1020 O?EN"I",l,"QUEJOHAR/TXT":FORI=iTO20:PRINT39l0."LENDO GUESTAO NUMERO <"; 

I;"> DE 20 «UEST0ES":INPUT#1.P*(I):INPUT#1.A*(I):INPUT#1.B*(I):INPUT#1.D7.(I) 

:NEXTl:CLOSE:RETURN 

1030 P»=" LEITURA OUESTOES ":GOSUB1000 :PRINT:PRINT:PRINT"Prepare Cassete:": 

PRINT3529,"Coloque Fita de Que s toes e pressione <PLAY>" :PRINT3666. "Quando P 

ronto Dx9xte <P>" • 

1040 P*=INKEY*»IFP*="P"THEN1050 ELSE1040 

1050 PRINT3320."Lendo Questoes " :PRINT3529,STRING$(45.32) :PR1NT3666. STRI 

NG*(25.32):PRINT3832.STRINGS(62. 140):PRINTa896." A Leitura oo ariuxvo de nu 

•Stoes demora cerca de 8 minutos" 

1060 FORI=1TO20:PRINT3529, "fiuestao numero <*!I!"> de 20 questoes * : INPUT#-1 . P 

*( I ) : INPUT#-1. A*< I ) : INPUTtt-1, BS( I ) : INPUT#-i. D7.( I ) : NEXTI : RETURN 

1070 I*(l)="iNSTRUC0ES"+STRING*(53.95):l*(2)="l. Serao apresentadas 20 sxtua 

coes e duas alternativas de re-" 



1080 I*(3)=" 



acao a estas sxtuacoes." 



1090 I*(4)="2. Voce devera indicar qual das alternativas ma:s se asseme-' 

1100 I*(5) = " 1 ha a sua propria reacao ante a^ueias sxtuacoes." 

1110 I*<6)="3. Se a alternative, <A> oescreve exatamente a sua reacao. e" 



1120 I$<7)=" 
1130 I*(E)=" 
1140 I*<9)=" 
1150 14(10)=" 



a <B> nao tern nennuma semelhanca com a sua propria rea-" 
cao. entao atribua 5 pontos para <A.' e pontos para <B>" 
ou ao contrarxo se a sua reacao for tipxeamente a descrita" 
em <B>. " 

1.60 I$(ii)="4. Se <A> descreve de modo bem aproximaoo o seu compor tamen-" 

1170 I*(I2)=" to e <B> tern al9uma semelnanca com a s-ua reacao. entao a-" 

1180 i*(13)=" atribua 4 pontos para <A> e 1 PontO para <B>. 

1190 :*(14)=STRING*(63.95) 

1200 I*(15) = "Para continuar digxte <iuai<iuer tecla" 

1210 I*(16)=I*(1) 

1220 IS(17)="5. Se <A> e <B> sao seme! hantemente correjporioentes a ;ua" 

1230 IS(18)=" propria reacao. porem <A> e 1 lgeiramente mais proximo oe" 

1240 It(19)=" sua forma de a9ir. atribua 3 pontos para <A> e 2 pontos" 

1250 I$(20)=" para <B>'. " 

1260 I*(21)="6. Sempre a soma dos pontos atnbuioos a caoa ai ter nati va" 

1270 I$(22)=" devera sen 5 e nennuma questao pooera ficar sem pesposta. ° 

1280 I*(25)=STRING*(63.95) 

1290 IS(26)=- <R>ePetir instrucoes <P>rosse9uir " 

1300 I*(27)=" < >epetir instrucoes < >rosse9uir" 

1310 I*(23)="7. Procure responder como voce a9ina em cada situacao e° 

1320 IS(24)=" nao como pensa que seria certo a9ir..." 

1330 RETURN 

1340 CLS:F0RI=1T015 

1350 PRINTI*(i> 

1360 NEXTI 

1370 Y*=INKEY*:IFYS=""THEN1370 

13B0 CLS:F0RI=16T024 

1390 PRINTI*(I) 

1400 NEXTI :PRINT3832. I$(25) 

1410 Y$=INKEY*:PRINT3896, I$(26) :F0RT=1T08:NEXTT 

1420 IFYS="R"THENGOTO1340 

1430 IFY»="P"THEN250 

1440 PRINT3896. I*(27) :FORV=1TO8:NEXTT:GOTO1410 

1450 CLS:P»=" INTERPRETACAO ":GOSUB1000 

1460 PRINT" 1. Grafico demonstrara a ABERTURA e FEED-BACK." 

ABERTURA representada pela lxnha que divide o 9rafico em" 
uma parte superior e outra inferior, apresenta na parte" 
superior aquxio que VOCE SABE que OS OUTROS SABEM DE VOCE." 
e na parte inferior aquilo que VOCE PENSA que os outros" 
NAO SABEM SOBRE VOCE. " 

1520 PRINT"3. FEED-BACK representado peia 1 inha que divide o 9rafico era" 

1530 PRINT" duas partes laterais. apresenta na parte esquerda a^uxlo" 

1540 PRINT" que VOCE SABE a seu repeito e do lado dxreito aquilo que" 

1550 PRINT" Voce DESCONHECE sobre si mesmo." 

1560 PRINTa832.STRING*(63.95) 

1570 PRINT3900. "Para prosseguir di9ite qualquer tecla" 

1580 Y*=INKEY*:IFY$=""THEN1580 

1590 CLS: GOSUB 1000 

1600 PRINT"4. Com o tracado das lxnhas de ABERTURA e FEED-BACK sobre - o" 

1610 PRINT" 9rafico. este fica dividido em 4 partes:" 

1620 PRINT" 1. EU PUBLICO ou ARENA que representa aquilo que voce sace" 

1630 PRINT" soore si mesmo e que os outros tamoem sabem. " 

1640 PRINT" 2. EU CEGO que representa aquiio que os outros percebem mas" 

1650 PRINT" voce nao ve soore si mesmo." 

1660 PRINT" 3. EU OCULTO que representa aquiio que voce saoe sobre si" 

1670 PRINT" mesmo mas que os outros nao sabem. " 

1680 PRINT" 4. EU DESCONHECIDO que representa aquilo que nem voce nem os" 

1690 PRINT" outros sabem soore Voce. " :PRINT3832.STRING*(63.95 ) :PRINT390 

0. "Para prosse9uir digite qualquer tecla" 

1700 Y*=INKEY*:IFY*=""THEN1700 

1710 GOSUB1000 :PRINT:PRINT:PRINT:PRINTTAB( 10)"E atraves de seu "EU PUBLICO' 
ou 'ARENA'" 

1720 PRINTTAB( 10) "que se reaiizam seus reiacionamentos pessoais. " :PRINT: PRIN 

TTABH0) "iSuanto maior sua area maior seu rei acionamento. . . " 

1730 PRINT3832.STRING*(63.95) :PRINT3900i "Para prosseguir di9ite qualquer tec 

la" 

1740 Y*=INKEY*:IFY*=""THEN1740 ElSE RETURN 



1470 PRINT" 
1480 PRIN" 1 "" 
1490 PRINT" 
1500 PRINT" 
1510 PRINT" 



m. 
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O LIMPA 
TUDO 



r ^ 

, Use tambem em i 

» v VIDEOCASSETEj 



"FREON" TF 



fyJL QmnPjU 



k ^> 



5SB, SELETORES DE CAN}S 
CA8 ECAS MAGNE"TICAS. W 



CONTACMATIC 6 um limpador especifico 
para equipamentos eletronicos. CONTAC- 
MATIC contem Freon TF, que deixa conta- 
tos, reles, seletores de canais, cabecas mag 
neticas de computadores e gravadores. me- 
canismos de precisao, maquinas de calcular, 
relogios e muita coisa mais, limpo, limpo, co- 
mo novo! 

Para melhor manutencao: 
COOLERMATIC. congelador de circuitos pa- 
ra facilitar a localizacao de defeitos intermi- 
tentes em circuitos eletronicos (aerosol 
200grs.). 

ISOMATIC, laca para proteger e isolar circui- 
tos impressos contra oxidacao (aerosol 
150grs.). 

SILIMATIC, lubrificante seco a base de silico- 
ne para equipamentos eletronicos e de preci- 
sao. Repele umidade e protege contra oxida- 
cao (aerosol 200grs.). 

THERMATIC, pasta termica para dissipar ca- 
lor em componentes eletronicos. Aumenta a 
condutibilidade termica entre o dissipador e o 
semi-condutor (embalagem de 15grs., 
lOOgrs. ou a granel). 

A VEND A NAS LOJAS DO RAMO 



if m : o 



MAR MO & FILHOS LTDA. 

Vendas e administrapao: R Ribeirc de Lima 453 Bloco 

6" andai cj "605 CEP 01 122 Caixa Postal 957 

Sao Paulo SP F 222 5451 e 223 6585 

Fabrica: R Ouarie de A/evedo. 568 
CEP 02036 Sao Paulo SP F 299 6051 




Devido ao grande numero de cartas de leitores pedindo 

maiores ex plica qoes sob re o programa "Aer oporto 83", 

publicado em MICRO SISTEMAS n° 22, estamos fazendo 

um MS RESPONDE especial para tentar resolver as duvidas 

ma is comuns apresentadas por nossos leitores. 



Tira-teima: Aeroporto83 



programa Aeroporto 83 foi pu- 
blicado com o objetivo de introduzir o 
leitor de MICRO SISTEMAS na digita- 
cao de listagens em Assembler. Tive- 
mos cuidado na construcao da logica e 
apresentacao, tan to na parte de BA- 
SIC quanto na de Assembler. Pordm, 
surgiram diversas duvidas de leitores 
com relacao ao processo de digitacao 
e teste do programa. Tentaremos ago- 
ra esclarecer as duvidas mais comuns 
que recebemos, mas o leitor deve ter 
em mente que 6 fundamental a leitura 
atenta do texto que acompanha o pro- 
grama para ter a compreensSo necessa"- 
ria para digita'-lo. 

Antes de mais nada e" preciso desta- 
car que o programa Aeroporto foi 
exaustivamente testado pela equipe do 
CPD de MICRO SISTEMAS, receben- 
do especial atencao por ser o primeiro 
programa em Assembler especialmente 
escrito e veiculado por uma publicacao 
nacional. Todas as listagens, inclusive 
os blocos em Assembler, foram com- 
postos exatamente iguais ao modo co- 
mo serab listados pelo computador. 
Isso foi feito para dar maior seguranca 
na digitacao, principalmente para os 
iniciantes. Por isso, se a imagem do vf- 
deo nao coincidir com a listagem pu- 
blicada, e" porque houve erro na digita- 
cao. 

O primeiro passo para obter os re- 
sultados desejados 6 digitar a listagem 
1. Nela existem algumas linhas REM 
que foram utilizadas para reservar es- 



paco para a parte em Assembler do 
programa. O procedimento e" bastante 
simples: digite 1 REM e 82 caracteres 
1. A linha 1 ficara" assim: 

1 REM 11111111111111111111111 
11111111111111111111111111111111 
111111111111111111111111111 

Repita este procedimento nas linhas 
de 2 a 7, respeitando as quantidades de 
caracteres entre parenteses. Essas li- 
nhas correspondem aos blocos de 1 a 
7 das listagens em Assembler. 

As linhas 130, 510 e 540 correspon- 
dem aos blocos de 8 a 10 e n§o fazem 
parte da rotina em codigo de maquina, 
mas representem a apresentacao, os 
creel itos e o pr6prio aeroporto. A tdc- 
nica de construcao das linhas 6 a mes- 
ma utilizada anteriormente, ou seja, di- 
gitar 98 espacos entre as aspas da linha 
130 e assim por diante (pode-se digitar 
qualquer career, pois o que importa e* 
a quantidade correta). 

As outras linhas sa"o comuns e nao 
devem causar problemas de digitacao. 
A linha 1060 deve receber tnSs espacos 
entre as aspas; a linha 1110 deve rece- 
ber apenas um espaco. 

Quando terminar com a listagem 1 , 
faca o teste mencionado no texto do 
programa. Se o resultado fordiferente 
de 18129, £ MELHOR PARAR por- 
que o programa nao funcionara\ Pro- 
cure, entSo, localizar o erro da lista- 
gem (que muito provavelmente estara" 



nas linhas REM), e somente depois que 
o teste coincidir com 18129 6 que vo- 
ce devera" prosseguir. 

Digite RUN 1000 e quando o siste- 
ma perguntar ENDERECO DO BLO- 
CO? digite o numero da coluna, a es- 
querda, no bloco 1 (16514), e ENTER 
(ou NEW LINE). Logo apos digite os 
bytes na forma explicada pelo texto. 
Os outros enderecos do bloco aparece- 
rao automaticamente e nao havera" ne- 
cessidade de digitS-los. 

Se voce" detectar algum erro de digi- 
tacao, digite M que o sistema pedira* 
novo endereco do bloco. Reinicie do 
ponto anterior ao erro. No final de ca- 
da bloco digite tamWm M para entrar 
com outro bloco. Se quiser interrom- 
per a execucao da entrada de dados, 
basta digitar S que o sistema parari. 

A digitacao dos bytes nos blocos 
em Assembler deve ser feita com o mS- 
ximo de cuidado e atencao, porque 
qualquer erro sera" fatal para a execu- 
cao do jo go. 

Quando terminar, inte/rompa a 
execucao (digitando S) e tecle RUN 
2000. Agora de uma boa olhada na lis- 
tagem das linhas 1 a 540. As linhas 
REM receberam os codigos de maqui- 
na do Assembler, e as linhas PRINT 
receberam apenas caracteres gr^ficos 
que formam desenhos. 

pr6ximo passo 6 eliminar as li- 
nhas 1000 a 2060 e digitar a listagem 
2. Grave o programa e, novamente... 
Feliz aterrissagem ! 



Envie suas perguntas para MICRO SISTEMAS (Secio MS RESPONDE); 
Rua Visconde Silva, 25, Botafogo, Rio de Janeiro-RJ, CEP 22281. 



Os principals centros comerciais 
do mundo tern como sua empresa oficial 
de exportagoes os Trade Centers. Dentro 
dessa nova filosofia do comercio inter- 
national, um grupo de empresarios cons- 
tituiu p BRASIL TRADE CENTER, 
COMERCIO E PARTICIPAgOES, 
baseado na estrutura dos seus similares 
dos grandes centros, a qual se acrescen- 
tou a dinamica do Banque DAffaire 
frances. A ideia principal desse Banco de 
Negocios, e, no exterior, vender Brasil 
e, dentro do Pais, fomentar o intercambio 
com o mercado international e oferecer 
uma serie de produtos e facilidades ao 
empresario e outras pessoas interessadas. 
Veja alguns exemplos: 



A BTC - Computadores e Video 
desenvolve e fornece programas 
aplicativos, cursos de BASIC (basico 
e avangado), entre outros, alem de uma 
completa assessoria em Informatica e da 
venda de maquinas, software e video 
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Banco tfe negocios. 



BRASILTRADE CENTER 

Av. Epitacio Pessoa, 280 (esquina de Visconde 

de Pirajd), Ipanema, Rio de Janeiro - RJ, 

CEP 22471, tels.: (021) 259-1299, 259-1499 e 259-1542. 




comercializa aparelhos de video-cassete, 

fitas, e possui atualmente o primeiro curso 

de Ingles em video-cassete produzido no 

Brasil, com um aprendizado divertido 

e eficiente. Tambem 

encontram-se 

em desenvol- 

vimento diver- 

sos projetos de 

programas culru- 

rais em video. 



A BTC - Viagens e Turismo 
promove viagens comerciais e 
turisticas, individuals e em pacotes, 
com toda a infra-estrutura dos maiores 
agentes de viagens (despachantes, 
passagens aereas, traslados, tours, 
hospedagem, etc.), incrementando o 
turismo interno e o intercambio com 
investidores estrangeiros. Realiza, 
tambem, tours de ensino 

e desenvolvimento em- 
presarial para 
estudantes e 
empresarios, visitan- 
do os maiores centros de In- 
formatica (fabricas e empresas, entre 
outros) dos Estados Unidos e Japao 

BTC - Inc. Empresa Promogao e 
Comercializagao em Miami - 
Florida - EUA. O BRASIL TRADE 
CENTER funciona com telex interna- 
tional, banco de dados e recepcionistas 
bilingiies, com escritorios em Miami 
e no Rio de Janeiro, este localizado 
numa das mais valorizadas esquinas 
do Brasil e dotado de show-room para 
exposigao e langamentos de produtos. 
Visite-nos. Estamos a sua disposigaa 



ASSOCIAQAO DE REVENDAS " 

A ARCOS — Associacao das Reven- 
das Especializadas em Computadores do 
Rio Grande do Sul aprovou seus novos 
Estatutos, que tern como objetivos prin- 
cipals a coordenacao, protecao e repre- 
sentacao legal dos associados. 

A associacao elegeu tambem a nova 
diretona. que ficou assim constituida: 
Presidente: Jose Eduardo Buchabqui 
(Advancing); Secretario: Paulo Roberto 
S. Dornelles (Digital); Tesoureiro: Luiz 
Carlos Drummond (Microtel); Vice-presi- 
dente: Felix S. Rosa Neto (BPI Intormati- 
ca); Segundo Secretario: Antonio Cesar 
C. de Almeida (Metaidata); Segundo Te- 
soureiro: Jefferson Durand (Informatique). 
Integram o Conselho Fiscal Danilo R. 
Menezes, (DB Computadores), Tulio Cas- 
tro Filho (Microsis) e Luiz Antonio Noll 
(Compumidia). As empresas Alpha Siste- 
mas e Micromega irao representar a 
ARCOS, respectivamente, nas regioes da 
Serra e do Vale dos Sinos. 




HP-85B, novo micro da Hewlett-Packard 

DISCO ELETRONICO 

Um disco eletronico 100 vezes mais 
rapido que a fita e 15 vezes mais do que o 
disco magnetico e a novidade do HP-85B, 
recentemente langado pela Hewlett-Pac- 
kard do Brasil. 

Esse disco, que pode armazenar 32 
Kbytes internamente e ate 160 Kbytes 
com a utilizacao de um modulo externo, 
constitui-se num espaco de memoria que 
atua como um acionador de discos. 

O HP-85B. que esta sendo fabncado 
em Campinas — SP, pesa nove quilos e. 
a exemplo do seu antecessor, o HP-85A, 
lancado no Brasil em 1981. incorpora 
teciado, video, impressora e unidade de 
tita magnetica, alem de roaar todo o 
software disponivel para a linha 85. 



SINCLAIR X MICRODIGITAL 



Esta em fase de pencia. sendo anah- 
sado por tecnicos de ambas as partes, o 
processo movido pela Sinclair Research, 
fabricante dos microcomputadores ZX 80 
e ZX 81, contra a Microdigital. A mesma 
acao envolve ainda as empresas Filcres e 
Editelle. A Microdigital e a Filcres estao 
sendo acusadas pela Sinclair de terem 
copiado o teciado, circuito eletronico e 
software basico de seu microcomputador 
para seus equipamentos TK 82C e NEZ 
8000, respectivamente. A acusacao con- 
tra a Editelfe se refere ao fato de esta ter 
publicado em sua revista fotos do dia- 
grama do equipamento fabncado pelas 
duas outras res. identico ao modelo da 
empresa inglesa . segundo texto da acao, 
Segundo o advogado da Microdigital. 
Georges Fischer, a Sinclair nao requereu 
registro de patente de seu equipamento 
no Brasil em tempo habil. nao tendo por- 
tanto nenhum direito com relacao ao 
mercado nacional. Este sera o principal 
argumento da defesa. Quanto aos itens 
levantados pela Sinclair, Georges Fischer 
afirma que o teciado do TK 82C, como 
da maioria dosequipamentos.obedece a 
mesma disposicao dos teclados de ma- 
quina de escrever, e o circuito eletronico 
nao e patenteado em nenhum lugar no 
mundo. Com relacao ao software basico. 
o advogado da Microdigital afirma que os 
propnos tecnicos que foram fazer a busca 
e apreensao. ordenada pela Sinclair, ave- 
nguaram que os primeiros 12 mil passos 
sao iguais. mas os outros 4 mil sao dife- 
rentes. Alem disso, a defesa usara como 
argumento o fato de que no Brasil o soft- 
ware basico nao tern protecao legal, pois 
a propria lei impede que este seja prote- 
gido pela propnedade industrial. Por ou- 
tro lado ele e considerado como parte 
integrante da maquina, nao cabendo por- 
tanto ser defmido exatamente como cna- 
cao cientifica, o que Ihe encaixaria na 
lista de produtos protegidos pelo direito 
autoral. 

Esta e a pnmeira acao do genero no 
Brasil e a decisao, a nivel de pnmeira 
instancia, devera sair ate o final deste 
ano. Segundo Fischer, o resultado desta 
acao podera ser essencial com relacao a 
atitude de outras empresas estrangeiras. 

Os advogados da Sinclair se negaram 
a dar entrevista pelo fato da questao 
estar sob judice. 




A P-500, DA PROLOGICA 

A Prologica acaba de lancar a im- 
pressora P-500. projetada para compu- 
tadores pessoais, em especial o CP-500 e 
o CP-300. A P-500 e uma impressora ma- 
tncial com velocidade de 100 CPS, bidi- 
recional e percurso minimizado (escolha 
do caminho mais curto). A impressao 
dos caracteres e feita por meio de nove 
agulhas alinhadas verticalmente, forman- 
do uma matriz de nove colunas por nove 
linhas e seis colunas por doze linhas 
para caracteres graficos do CP-500. Exis- 
tem quatro tamanhos de carater: normal 
(80 caracteres/linha), normal expandido 
(40 caracteres/linha), comprimido (140 
caracteres/linha) e comprimido/expandi- 
do (70 caracteres/linha). 

SOFTWARE E 
ALTA RESOLUQAO 

A Digital Componentes Eletrbnicos 
Ltda., de Porto Alegre, esta lancando 
dois sistemas de alta resolucao grafica 
para a linha Sinclair, ambos permitindo 
45.056 pontos na tela (pixel de 256 x 176). 
O primeiro deles permite a criacao de n 
tipos de caracteres graficos. assim como 
letras maiusculas e minusculas de qual- 
quer alfabeto, inclusive o grego. O outro 
modelo ja vem com um leque de carac- 
teres, simbolos e letras gravadas em 
EPROM, que podem ser utilizados em 
qualquer programa. 

A empresa firmou tambem contrato 
com as software-houses Infinitus e Mi- 
croline para a distribuicao nacional ex- 
clusiva dos programas das marcas Su- 
persoft. Infinitus e Microhne. 

A matriz da Digital fica na Rua Barao 
de Tramandai, 204, Porto Alegre — RS, 
CEP 90000, tel.: (0512) 24-1411. 




CLAPPY EM COPACABANA 

A Clappy Computadores e Sistemas 
acaba de inaugurar mais uma filial no 
Rio de Janeiro, desta vez em Copaca- 
bana. A nova loja, localizada na Rua Pom- 
peu Loureiro, 99, alem de comercializar 
microcomputadores da Microdigital, Pro- 
logica, Digitus, Dismac, Spectrum, Schu- 
mec. Hewlett-Packard e Softec (EGO), 
impressoras Elebra e Globus, e toda a 
linha de calculadoras programaveis da 
Texas e HP e seus acessonos, dispoe 
ainda de um andar inteiro de salas de 
aulas para treinamento. 

APLICATIVOS PARA PECUARIA 

A IACA — Consultona e Planejamen- 
to Agropecuano esta comercializando 
um pacote de programas para o controle 
de producao, reproducao e saude animal. 
Esses programas, ha tres anos em teste 
e apnmoramento na Fazenda Pau D Alho- 
em Campinas — SP (veja MS n.° 21 , pag. 
52) sao faceis de usar e, conforme exph- 
ca Willem A. Dutilh, diretor da IACA, o 
seu custo esta relacionado ao tamanho 
do rebanho e ao conjunto de programas 
apropnado para cada fazenda. 

O sistema e compativel com qual- 
quer micro que utilize sistema operacio- 
nal similar ao TRSDOS. O endereco da 
IACA e; Caixa Postal 327, Campinas— SP 
tels.. (0192) 51- 6194 e 39-3352. 



ASSESPRO-RJ TEM 
NOVA DIRETORIA 

A Assespro-RJ empossou, dia 28 de 
setembro, a sua nova diretona para o 
penodo 1983/85, e que esta assim cons- 
tituida; Presidente: Alexandre Lello Ma- 
chado (Suphus); Vice-Presidente Executi- 
vo: Ernani Duarte Pinheiro Junior (Pro- 
consul), Vice-Presidente Tecnico: Luiz 
Carlos de Sa Carvalho (SPL); Diretor Fi- 
nanceiro: Haroldo Medeiros Duarte (Me- 
todo); Diretor Secretario: Jorge Araujo 
(Apas). Diretor de Software: Sergio Wer- 
ner de Araujo; Diretor de Bureaux: Mar- 
cos Greuel (Cetil); Diretor de Empresas 
de Comercializagao: Francisco G. Morei- 
ra (Digidata), Diretor de En'sino e Trema- 
menio: Alvaro Silva Neto (D.S.I.); Diretor 
de Entrada de Dados: Nelson Ichikawa 
(Resumo); Diretor de Desenvolvimento: 
Marcio Augusto Romeiro da Roza (Vic- 
ton Eletronica) 



COMPUTERLAND NO RIO 

Microcomputadores e penfencos ae 
diversas marcas; um videociube com am- 
pla vanedade de cartuchos de videogame 
e filmes em videocassete, departamento 
propno de assistencia tecnica, software 
house para o desenvolvimento de pro- 
gramas especificos e certificaao de ga- 
rantia por um ano, vahdo em toao o Pais, 
para qualquer equipamento adquindo na 
oja. 

Com esses produtos e servigos. a 
Computerland inaugurou. em fins de se- 
tembro. a sua pnmeira loja propria no 
Rio de Janeiro, situada no Centro Empre- 
sanai Rio Praia de Botafogo. 228 — Edi- 
ficio Argentina, loja 114. A nova loja 
eleva para 23 o numero de pontos de 
vendas da Rede Computerland em todo 
o Brasil, atraves de uniaades propnas ou 
de lojas autonzadas pelo sistema ae fran- 
quia 



STRINGS 



% A Telesp esta concluindo seus tra- 
balhos no sentido de viabilizar a utiliza- 
gao de microcomputadores, compativeis 
com TRS 80 e Apple, como terminals de 
Videotexto. Para isso e necessano que o 
equipamento tenha saida RS 232 C e 
seja hgado a um modem especifico para 
o sistema Videotexto. Com este material 
e mais o programa que transforma o 
micro em terminal videotexto, o usuario 
se apresenta entao a Telesp para ser 
cadastrado no sistema. 

• A Microlab, que celebrou a produ- 
cao das milesimas unidades de discos 
ngidos DM-90- e DM-448. esta nacionali- 
zando progressivamente esses equipa- 
mentos. ate o micio do proximo ano, os 
indices ae nacionahzacao deverao atin- 
gir, respectivamente, 64% e 89%. 

• A Computerland inaugurou no micio 
de outubro a sua quarta loja propria, si- 
tuaao a Av aos Imares. 134. A nova loja 
oferece o conjunto compicto de produ- 
tos comerciahzaaos pela ReOe Compu- 
terland 

• A Brasitone Radio e Televisao, de 

Campinas — SP. desativou o seu setor 
de Informatica. 



• O Sistema 700, da Prologica, sera 
em breve utilizado para a elaboracao de 
textos em Braille. Para isso. o professor 
Antonio Zuffo, da Escola Politecnica da 
USP, esta desenvolvendo uma interface 
especial para permitir que o equipamen- 
to, acoplado a uma impressora P-700. 
possa transformar o alfabeto normal em 
Braille. 

• A Novel Print esta comercializando 
teclados flexiveis com contatos eletricos 
de toque suave, para serem usados em 
equipamentos, em substituicao aos te- 
clados mecanicos. Os novos teclados sao 
completamente vedados. impedmdo a 
entrada de poeira. sujeira e umiaaOe. Os 
teclaaos flexiveis podem ser usados em 
calculadoras, computadores pessoais. 
bnnquedos, indiistna automobilistica e 
equipamentos de escntdno. cientifico e 
mecanico. 

• Com a mauguracao ae suas nnais ae 
Uberlandia (MG) e Petrdpolis (RJ), o Cetil 
— Processamento de Dados elevou para 
25 o numero de instalaqoes propnas em 
10 Estaaos da federagao. Fora esses, 
mtegram a reae Cetil 23 bureaux creaen- 
ciaaos. 



CE HTRALO ATA 

tn. i ItittttHltlK llll. 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 

Fita Magnetica: 600, 1200 e 2400 Pes 



Discos Magneticos: 5 Mb, 16 Mb, 80 Mb etc. 
Diskettes: 5 1/4. e 8 Polegadas — Simples e Dupla Face 

ETIQUETAS PIMAC0 - PIM ATAB 



AV. PRESIOENTE VARGAS. 482 - GR. 207 - TELS.: (021) 263-5876 - 253-1120 - RJ 



Fita CARBOFITAS p/lmpressoras: Globus M 200 — B 300/600 
Fita p/lmpressoras: Elebra, Digilab, Diablo, Centronicetc. 
Cartucho Cobra 400 
Pastas e FormulariosContinuos. 
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dB/ 




dB/MICRO 

AV. ALFONSO BOVERO 218 

SAO PAULO S.P. 

BRASIL 

TEL.: 1011)263-0711 



HOTLINE dB/FONE 

PROGRAMA dB/I 

PROGRAMA dB/II 

JORNAL DO USUARIO dB/Clube 

TREINAMENTO BASICO dB/Treino B 

TREINAMENTO AVANQADO dB/Treino A 

TREINAMENTO EM DISCO dB/Treino D. 

SEMINARIOS PARA EXECUTIVOS dB/seminanos 

APOIO A AUTORES INDEPENDENTES dB/Aplicativos 



SUPORTE 

TOTAL 

AOS 

USUARIOS 
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Para voce que ainda esta em duvida se vale ou nao a pena quebrar a cabeca 
para aprender Assembler, eis um pequeno exemp/o que /he incentivara bastante 



BASIC e Assembler : 
quern e quern no Apple 



Listagem 3 

10 FOR K = 768 TO 921 

20 READ A 

30 POKE K,A: NEXT 

40 DATA 32,88,252,169,176,141, 
8B,7, 141,89,7, 141,90,7, 141,9 
1 ,7,133,0,169,0,133,1,133,2 
, 133,3,133,4, 166, 1,232, 134, 1 
, 165, 1,201. 10,240, 11,24, 165, 
0,101,1,141,88,7,76,29,3,169 
,0,133, 1, 165.0,141,91,7, 166, 
2,232,134,2,24,165,0,101,2,1 
41,90,7, 165 

50 DATA 2,201,10,240,3,76,29, 
3,169,0,133,2,165,0,141,90,7 
,166,3,232, 134,3,24,165,0,10 
1,3,141,89,7,165,3,201,10,24 
0,3,76,29,3,169,0,133,3,165, 
0, 141,89,7, 166,4,232, 134,4,2 
4, 165,0,101,4,141,88,7, 165,4 

60 DATA 201,10,240,3,76.29,3,16 

9,0.133,4,165,0,141,88,7,96 
70 CALL 765 
80 END 



BASIC 
Linhas 


ASSEMBLER 
Enderegos $ 


OBSERVAgQES 


10 


300 a 302 


Limpa a tela 


20 a 30 


303 a 310 


Zera o odometro 






311 a 31C 


Zera A,B,C,D; em BASIC 
iniciam zeradas 


ja 




40 a 70 


31D a 33B 


Varia as unidades 


80 a 110 


33C a 35A 


Varia as dezenas 


120 a 150 


35B a 379 


Varia as centenas 


160 a 190 


37A a 398 


Varia os milhares 



Figura 1 - Correspondencia entre as linguagens BASIC e Assembler do programa em 
demonstracdo. 



Evandro Mascarenhas de Oliveira 




odos sabemos que, para serem 
entendidas pelo microprocessa- 
dor, as linguagens de compu- 
tacSb de alto nivel necessitam ser traduzi- 
das para linguagem de baixo nivel atra- 
v£s dos interpretadores ou compilado- 
res, o que consome tempo no processa- 
mento de um determinado programa. 
Este mesmo programa escrito em lin- 
guagem de baixo nivel, Assembler por 
exemplo, tern sua velocidade aumentada 
consideravelmente (na literatura consul- 
tada existe a referenda de, no mfnimo, 
oitenta vezes). 

Como curiosidade natural, propus-me 
a avaliar esta diferenca a partir de dois 
programas identicos, um escrito em BA- 





Listagem 1 




10 


HOME 




20 


FOR K = I860 TO 1883 




30 


POKE K.176S NEXT 




40 A = A + 1 




50 


IF A = 10 THEN A = 0: 
83, 176: GOTO 80 


POKE 18 


60 


POKE 1883, 176 + A 




70 


GOTO 40 




SO B = B * 1 




90 


POKE 1882,176 + 6 




100 


IF B = 10 THEN B = 0: 
882.176: GOTO 120 


POKE 1 


110 


GOTO 40 




120 


C = C i- 1 




130 


POKE 1BB1, 176 + C 




140 


IF C = 10 THEN C = 0: 
381, 176: GOTO 160 


POKE 1 


150 


GOTO 40 




1 160 


D = D + 1 




170 


POKE 1880, 176 + D 




' 180 


IF D = 10 THEN D = 0: 
B80,176: GOTO 200 


POKE 1 


190 


GOTO 40 




PI 200 


END 





SIC e outro em Assembler, no micro AP 
II da Unitron, que usa o microprocessa- 
dor 6502. Ambos representam um odo- 
metro que vai de a 9999, retomando 
a 0, numa sequencia de 10.000 variacOes 



indicadas na tela atraves das posicoes de 
mapeamento de video (sem a utilizacao 
da instrucao PRINT). 

programa em BASIC (listagem 1) 
consumiu tres minutos ou 1 80 segundos 



para ser rodado. Ja no que foi escrito 
em Assembler (listagem 2), o tempo foi 
reduzido para 0,40 segundos, ou seja, 
foi 180/0,40=450 vezes mais rapido, o 
que vem demonstrar a extrema velocida- 
de com que sfo processados os progra- 
mas em linguagem de baixo nivel. 

Desta comparacSo da para perceber 
a importancia que representa o Assem- 
bler para programas que necessitam de 
velocidades elevadas de processamento, 
tais como os famosos jogos eletronicos 



onde, apesar das instrucOes serem pro- 
cessadas uma a uma, percebe-se clara- 
mente a independencia de movimentos 
entre as figuras, resultando em efeitos 
dinamicos notaveis. 

programa pode ser rodado em 
qualquer computador que tenha o 6502 
como microprocessador e interpretador 
BASIC. Assembler podera tambe'm ser 
carregado na memoria atrave's do BASIC, 
conforme a listagem 3, onde as instru- 
cts DATA indicam, em decimal, os 



codigos hexadecimais das varias instru- 
$5es da linguagem de baixo nivel. 

A correspondencia entre as instru- 
cts em BASIC e Assembler esta indica- 
da na figura 1 . ■ 



Evandro Mascarenhas de Oliveira 4 M4dico, 
atuando nas ireas de Laboratdrio Clinico e 
InstrumentacSo Me"dica. £ usuirio dos micros 
NE-Z8000 e AP II da Unitron. 













Listagem 2 












0300- 


20 


58 


FC 


JSR 


*FC5B 


034F- 


4C 


ID 


03 


JMP 


*031D 


0303- 


A9 


BO 




LDA 


#*B0 


3352- 


A9 


00 




LDA 


**00 


0305- 


8D 


58 


07 


STA 


*0758 


3354- 


85 


02 




STA 


*02 


0308- 


8D 


59 


07 


STA 


$0759 


3356- 


A5 


00 




LDA 


*00 


030B- 


BD 


5A 


07 


STA 


*075A 


3358- 


BD 


5A 


07 


STA 


*075A 


030E- 


8D 


5B 


07 


STA 


*075B 


335B- 


A6 


03 




LDX 


*03 


0311- 


85 


00 




STA 


*00 


335D- 


E6 






I NX 




0313- 


A9 


00 




LDA 


#*00 


335E- 


B6 


03 




STX 


t03 


0315- 


85 


01 




STA 


$01 


0360- 


IS 






CLC 




0317- 


85 


02 




STA 


*02 


3361- 


A5 


00 




LDA 


♦00 


0319- 


B5 


03 




STA 


t03 


D363- 


65 


03 




ADC 


*03 i 


031B- 


85 


04 




STA 


*04 


3365- 


3D 


59 


07 


STA 


S0759 


031D- 


A6 


01 




LDX 


*01 


0368- 


A5 


03 




LDA 


*03 


031F- 


EB 






INK 




036A- 


C9 


OA 




CMP 


#*0A 


0320- 


86 


01 




STX 


toi 


036C- 


FO 


03 




BEQ 


*0371 


0322- 


A5 


01 




LDA 


*01 


036E- 


4C 


ID 


03 


JMP 


*031D 


0324- 


C9 


OA 




CMP 


#$0A 


0371- 


A9 


00 




LDA 


#$00 1 


0326- 


FO 


OB 




BEQ 


S0333 


0373- 


35 


03 




STA 


*03 


0328- 


18 






CLC 




0375- 


A5 


00 




LDA 


*00 


0329- 


A5 


00 




LDA 


too 


0377- 


3D 


59 


07 


STA 


$0759 


032B- 


65 


01 




ADC 


*01 


037A- 


A6 


04 




LDX 


*04 


032D- 


8D 


58 


07 


STA 


$0756 


037C- 


E3 






INX 




0330- 


4C 


ID 


03 


J MP 


*031D 


037D- 


66 


04 




STX 


*04 


0333- 


A9 


00 




LDA 


#*00 


037F- 


IB 






CLC 




0335- 


35 


01 




STA 


toi 


0380- 


A5 


00 




LDA 


♦00 


0337- 


A5 


00 




LDA 


*00 


0382- 


65 


04 




ADC 


*04 


0339- 


BD 


5B 


07 


STA 


*075B 


0384- 


BD 


5B 


07 


STA 


*075B 


033C- 


A6 


02 




LDX 


♦02 


0387- 


A5 


04 




LDA 


*04 ! 


033E- 


EB 






I NX 




0389- 


C9 


OA 




CMP 


#*0A 'j 


033F- 


B6 


02 




STX 


*02 


03BB- 


FO 


03 




BEQ 


*0390 


0341- 


IB 






CLC 




038D- 


4C 


ID 


03 


JMP 


*031D 


0342- 


A5 


00 




LDA 


*00 


0390- 


A9 


00 




LDA 


#*00 


0344- 


65 


02 




ADC 


t02 


0392- 


85 


04 




STA 


*04 


0346- 


8D 


5A 


07 


STA 


*075A 


0394- 


A5 


00 




LDA 


*00 


0349- 


A5 


02 




LDA 


*02 


0396- 


3D 


56 


07 


STA 


*075B 


034B- 


C9 


OA 




CMP 


#*0A 


0399- 


(Si"i 






RTS 




034D- 


FO 


03 




BEQ 


$0352 
















VOLTAAOMUNDO 
SEM ESC ALAS 

Agora voce ja pode ingressar num mundo fascinante. mundo da 

informaqao instantanea, via videotexlo. 

Para parlicipar dessa viagem fantastica. basla ligar seu 

microcomputador a um modem UP-1200ATX da Parks. Utilizando a 

linha telefonica comum. ele permite ao seu micro livre acesso ao 

sistema de videolexto da TELESP. aos sistemas "in house" sendo 

implantados pelos bancos, e a quaisquer oulros que 

surjam no fuluro. 

Isso significa conhecer. sem escalas e no momenlo que voce 

desejar, (udo que acontece por ai em materia de informacao: 

economia. financas. esportes, lazer, turismo. cambio e muilo mais. 

Um programa sem limiles. 
O UP 1200WTX foi desenvolvido pela Parks exclusivamente para o 

videotexto. Sua interface digital e simples, dispondo apenas dos 
circuitos essenciais para este fim. que torna seu preco bastante 

acessivel. inferior ao de muitos eletrodomesticos que voce ja 

possui. Alem disso. dispensa o aluguel de terminais especiais e a 

compra de adaptadores, contando com uma assistencia tecnica de 

primeira linha para garantir seu perfeito funcionamento. 

Reserve logo seu lugar nesta volta ao mundo. Ligue seu micro a um 

UP- 1200 VTX da Parks e boa viagem. 

Uma viagem Parks pelo 
mundo do videotexto. 



PARKS - EQUIPAMENTOS EI.ETR6NICOS LTDA. 

Sao I'aulo - Hun Corre.i Vnsqucs. 51 -Fone(01 1)572-7171 -Tlx. |01I) 23141 • Porto Alegre - Av. Purona. 2335- Fono 105.1 2) 42-5500 TIx. (031) 1043 • Bolo 

Horizante Av. MtHBB PfflW. 94 1 Ftrt»103 1 1 226-5722 • Brasilia ■ ( IN 104 - SocO 1 • D • sola 11 7 - Fonc |00 1 1 225-0538 • Curitiba - Rua Carlos de Cnrvafho. 

1 766 - Form (04 1 ) 232- IB 14 - Tlx. (04 1 ) 5406 • Recife - Av. Norle. 3030 - Fone (08 1 ) 24 1-5309 o Av. Consolheiro A(!uinr. 5025 - c:on|. 104 • Fonos (081 ) 325-2 1 23 

•• 125-2307 • Rio de laneiro - Av . RioBrunro. 245 -s 2102- Fone 1021)220-2149 • Salvador- Av. Amaralina. BIB -sain 102 Fone (071) 249-9744 u 247-6344 
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MICRO SISTEMAS, novembro/83 



MICRO SISTEMAS, novembro/83 
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Fugindo do cinema, seres estranhos invadem o seu micro... Salve-o, capturando os inimigos\ 




Introducjdo 

automatica 

dopapel 



Alien, o invasor 



Bruno Barasch 



A Remtronic 2000 
e uina maquina de 
escrever eletronica 
tao avancada, mas 
tao avangada, que 
consegue ser mais 
simples que a sua maquina 
de escrever. 
Qomo e que pode? 
E que a Remtronic 2000 
e o resultado da mais 
revolucionaria tecnologia 
Remington, que veio tornar 
o trabalho da secretaria 
mais facil, pratico e rapido. 
A Remtronic 2000 faz coisas 
que voce nem imagina. 
• Ela coloca 

automaticamente o papel na 
posicao inicial da 
escrita. 

• Faz o alinhamento 
automatico 
a margem direita. 

• Gracas ao sistema 
__ de "margarida" 

Tabuiador decimal intercambiavel, 
automatico voce pode trocar de 




dec. tab. 



tipos sem sujar as 

maos e sem perder tempo. 

• A Remtronic 2000 e a 
unica que tem em seu 
cartucho a fita de 
impressao e a fita corretiva, 
que ja vem embutida. 

• Voce pode 
escolher entre 
4 formas de 
escrita: normal, 
negrito 

normal 
sublinhado , 
ou neg rito sublinhado* 

E o sublinhado e 
simultaneo. 

• Ela pode apagar 
automaticamente uma linha 
inteira. 

• Seus dedos podem ser tao 
ageis quanto 
seu raciocinio, 
que a 
Remtronic 
acompanha. 
Ela e veloz 



xxxx 



Tecla de 
repeticao 



Sublinhado 
simultaneo 




Tecla 
polivalente 



pensamento, pode 

bater ate 17,5 

caracteres por 

segundo! 

• Tem mem6ria de 

elefante. Sabe de 
cor todos os ajustes que 
voce fixou. A Remtronic 
2000 tem tanta novidade, 
mas tanta novidade, que 
nao da pra contar aqui. 
Mas a melhor delas e que 
agora ela tambem podera 

ser usada como 

terminal de 

computador, com o 

uso de urn interface 

apropriado. 

Remtronic 2000. 

Tao completa. Tao 

simples. 




Negrito 

automatico 



como um 





E 



ste jogo foi desenvolvido no D-8002 e roda nos mi- 
cros compativeis com o TRS-80, pois possui coman- 

dos para saida de audio. Ele consiste em capturar os 

alieni'genas que tentam pousar no seu micro. Isto e feito deslo- 
cando-se a palheta para a esquerda (digite 4) ou para a direita 
(digite 6); para parar, digite 5. jogo termina quando os in- 
vasores atingirem a linha pontilhada, pois eles ficam todos em- 
pilhados um em cima do outro. 

Vamos as instrucoes: toda vez que a maquina for desliga- 
da ou voce recarregar o programa, digite o numero 31819 ao 
aparecer READY? 



Voce podera" tambdm ouvir uma musica toda vez que con- 
seguir salvar o micro dos invasores. Para isto, desligue o plug 
do EAR, aperte PAUSE, REC e PLAY, ligue a chave MONI- 
TOR (para ouvir o que esta" sendo gravado) e ajuste o volume. 
Assim, quando o jogo terminar voce" ouvira a Marcha Fune- 
bre como forma de agradecimento! 

Bruno Barasch tem 17 anos e cursa a segunda se'rie do segundo grau do 
Colegio Rio Branco, em SSo Paulo. Fez curso de eletrOnica por corres- 
pondSncia e hoje ji desenvolve programas para o microcomputador D- 
8000, instalado na industria de seu pai. 



A POLIVALENTE DA 
REMINGTON. 



Alien 



10 CLS:PRINT@27,"A LIE N" : PRINT@256 , "PARA DIREI 

TA DIGITE 4" : PRINT : PRINT" PARA PARAR 

...DIGITE 5" : PRINT :PRINT"PARA ESQUERDA DI 

GITE 6" : PRINT: PRINT :PRINTTAB( 19)"**BATA QUAL 
QUER TECLA**" : P0KE1 6527 , 78 : P0KE1 6526 , 33 

20 IFINKEY$=""THEN20 

30 CLEAR300:FORX=20001TO20028:READO:POKEX,O:NEXT 

40 DATA 14,255,33,0,1,58,61,64,230,253,198,2,211, 
255,214,2,211,255,6,160,16,254,4 3,124,181,32, 

239,201 
50 RANDOM:CLS:C=15360:CC=127:CX=1 :AL=1 :J=672:J$= 

STRING$(6, 131 ) :PRINT@640,STRING$(63,45) ; :PRINT 

@J,J$ 
60 TE=TE+1 :FORT=0TOl : A$=INKEY$ : IFA$=" "THENNEXTELS 

EIFAS=" 4 "THENF= 1 ELSEIFA$=" 5"THENF=0ELSEIFA$=" 6 

"THENF=2 
70 ONFGOTO140, 160 
80 H=C+CX+64:K=PEEK(H) : IFK=1 31THEN 1 20ELSEIFK=45TH 

ENFA=1ELSEIFFA=1THEN1 30ELSEIFK-<>32THEN1 10 
90 POKE20020 , 4 : X=USR ( ) :0=0+2 : IFPEEK ( C ) =45THEN1 00 

ELSEIFPEEK ( C ) = 1 3 1 THEN 1 00ELSEPOKEC , 32 
100 C=H:POKEC,CC:GOTO60 
110 AL=AL+1 :C=RND(64)+15359:CX=RND( 3)-1 :GOTO60 



120 P=P+1 :POKEC,42:POKE20020,30:X=USR( 0) :POKE2002 

0,50:X=USR(0) : POKEC, 32 :GOT01 10 
1 30 POKE20020 , 4 : X=USR( ) : 0=0+2 : FA=0 : IFPEEK ( H ) = 1 27 

THEN170ELSEPOKEC,45:GOTO60 
140 IFJ<642THEN150ELSEPRINT@J," ";:J=J-2:PRI 

NT@J+6, " — " ; :PRINT®J,J$; :GOTO80 
150 F=0:GOTO80 
160 IFJ>696THEN150ELSEPRINT@J," ";:J=J+2:PRI 

NT@J-2, " — " ; :PRINT@J,J$; :GOTO80 
170 GOSUB200:PRINT@256,"POUSARAM"AL"ALIENIGENAS D 

URANTE"TE"UNIDADES DE TEMPO" : PRINT"VOCE PEGOU 

"P"INIMIGOS" : PRINT :PRINT"QUER JOGAR NOVAMENTE 

(S/N)" 
1 80 A$=INKEY$ : IFA$=" "THEN1 80ELSEIFA$="S"THEN30ELS 

EIFA$="N"THEN190ELSE180 
190 PRINT@960, ; : FORW= 1T01 6 : PRINT: FORH=0TO20 : NEXTH 

: NEXTW : END 
200 FORX= 1 T02 3 : READM : IFM=0THEN2 1 0ELSEPOKE200 20 , M : 

G=USR ( ) : NEXT : RETURN 
210 FORH=0TO15:NEXTH:NEXTX 
220 DATA 99, 0, 0,99, 0,0, 99, 99..0, 0,84, 0,0, 88, 88, 0,0 

,99,99,0,0,104,99 




nit R€minGcon 

^■P'' SEMPRE UMA NOVA IDEIA 
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Aponte seu "canhao" diretamente para onde 
se escondem aquelas "figurinhas" e... fature o DXCC\ 



Radioamador: oriente-se, 

macanudo! 



I ^^ I programa aqui apresentado e 
I 1 mais um exemplo de utilizagao 
V^ do microcomputador no shack 
do radioamador, e serd de grande utili- 
dade para todo aquele que dispuser de 
um micro e de uma antena direcional, 
quer seja um emerito ca9ador de DX ou 
um simples batedor de papo que goste 
de aproveitar as melhores condicoes de 
propagacao para uma determinada re- 
giao do mundo. 

objetivo e fornecer, a partir do lo- 
cal onde se encontra a estacao, os azi- 
mutes e as distancias sobre os caminhos 
curto e longo (short path e long path) 
para lugares prefixados na mem6ria, a 
criterio do operador, ou para qualquer 
lugar do mundo dado por suas coorde- 
nadas geograficas (latitude e longitude). 

Embora desenvolvido em BASIC-dis- 
co em um CP-500, o programa funciona- 
ra diretamente em qualquer outro micro 
compativel com o TRS-80 modelo III, 
com ou sem discos, e, com maiores e 
menores modificacoes, em qualquer ou- 
tro equipamento, inclusive no TK, NE e 
CP-200. Como se trata de um programa 
para radioamadores, 6" virtualmente a pro- 
va de munhecadas: em caso de alguma 
entrada errada, voce sera convidado a 
repeti-la e, se tiver interface de audio,- 
vai receber um alerta sonoro suficiente- 
mente irritante para faze-lo pre star mais 
atencao...! 

programa e auto-explicativo, inte- 
ragindo todo o tempo com o operador. 



Roberto Quito de Sant'Anna 



Logo de inicio e" apresentado um menu 
com duas opc5es, devendo o operador 
digitar (sem necessidade de ENTER): 

• 1 — para locais prefixados; 

• 2 — para qualquer local; 

• CLEAR - para sair do programa. 

Na opcao 1 , o programa pergunta se 
o operador deseja ver a relacao de locais 
disponiveis; em caso negativo, ou apos 
mostra-la em duas colunas, o programa 
apresenta o local de origem e suas coor- 
denadas, solicitando o nome do local de 
destino — o qual deve ser digitado exata- 
mente como aparece na relacao, sob pe- 
na de ser exigida nova entrada. Logo 
ap6s aparecem, na parte inferior da tela, 
os resultados desejados, ou seja, o azi- 
mute curto, a distancia curta, o azimute 
longo e a distancia longa. Na opcao 2, o 
programa apresenta o local de origem e 
suas coordenadas e pede a latitude do 
local de destino — conve'm notar que ele 
critica tais dados, nao aceitando latitu- 
des menores que —90° ou maiores que 
+90°, assim como longitudes menores 
que — 180° ou maiores que +180°. Uma 
vez aceitos os dados, os resultados sao 
revelados exatamente como na opcao 
anterior. 

programa esta estruturado em 
forma de modulos ou sub-rotinas, apre- 
sentando t^cnicas de programafao ela- 
boradas que merecem ser estudadas por 
iniciantes e jniciados. Em consequencia, 
o programa propriamente dito e consti- 
tuido apenas pelas linhas 170-180 opcao 



1) e 200-210 (opcao 2), as quais se limi- 
tam a chamar as sub-rotinas que, por sua 
vez, podem vir a chamar outras, num total 
de 1 1 (estas sub-rotinas precedem as li- 
nhas que contem os dados dos locais 
prefixados). Especialissima atencao deve 
ser dada as seguintes linhas: 

• linha 80 — o valor de N deve ser exata- 
mente igual ao numero de locais prefixa- 
dos (20, no caso). Para que caibam em 
uma so tela do CP-500, nao aconselho 
prefixar mais de 20 locais. Ver observa- 
coes sobre as linhas 930-960 adiante. 

• linha 110 — deve conter, exatamente 
na forma como aparecem, o nome (en- 
tre aspas) e as coordenadas (01 latitu- 
de , 02 = longitude) do seu local de ori- 
gem. 

• linha 510 - se voce nao dispoe de 
B ASIC-disco, suprima a palavra LINE e 
con viva com um ponto de interrogacao 
na tela quando o programa pedir o no- 
me do local de destino. 

• linhas 900-910 — se seu micro nao 
tern interface de audio ou se nao e" com- 
pativel com o TRS-80 modelos I e III, 
estas linhas devem ser suprimidas junta- 
mente com a instrucao GOSUB 910 das 
linhas 540 e 890, ou substituidas por al- 
guma rotina de audio de seu equipamen- 
to. 

• linhas 930-960 — nomes e coordena- 
das dos locais de destino, que podem e 
devem ser de livre escolha do usuario, 
mas que necessitam totalizar exatamen- 
te o N da linha 80; voce pode usar 



quantas linhas de DATA quiser, com 
quantos locais por linha desejar, desde 
que a seqiiencia seja um nome (entre as- 
pas) seguido de dois valores (com ou 
sem sinal, conforme as coordenadas, e 
sempre na ordem latitude -longitude), 
todos separados por virgulas e que, repi- 
to, o total das trincas nome/latitude/lon- 
gitude na"o seja diferente de N. So para 
recordar, a latitude Norte e a longitude 
Oeste tern sinais positivos, ao passo que 
a latitude Sul e a longitude Este tern 
sinais negativos. 

ESCOLHENDO OS LOCAIS 

Na escolha dos locais prefixados, 
optei por regioes (Europa, Dhas do Paci- 
fico etc.) e nao localidades especificas, 
obtendo as respectivas coordenadas sem- 
pre em valores inteiros e referidas a um 
ponto central ou dominante. Mesmo sa- 
bendo que tal escolha compromete o 
calculo da distancia (a qual, convenha- 
mos, € mera curiosidade...), convem que 
os perfeccionistas nao se esquecam de 
que nao faz sentido levar ao mile'simo 
uma coordenada de destino se a nossa 
antena nao est£ rigorosamente orienta- 
da, se o nosso rotor tern folga no eixo, 
se o nosso indicador tern precisao de 5 
ou 10 graus e, principalmente, se desco- 
nhecemos o angulo de abertura de nossa 
antena. De qualquer modo, tais dados 
sao de livre escolha do operador, e po- 
dem ser modificados a vontade. 

Se voce estiver interessado em obter 
azimutes e distancias de qualquer ponto 
do mundo para um dos locais prefixados 
ou entre dois pontos quaisquer — por 
exemplo, se durante um QSO o seu in- 
terlocutor lhe pedir calculos a partir de 
sua (dele) localizacJTo — experimente 
substituir a linha 110 por: 

110 INPUT "NOME LOCAL" ;PART$ : INPUT 

"LATITUDE", -01 : INPUT "LONGITUDE" ; 02 

As formulas utilizadas foram adapta- 
das para uso em microcomputadores a 
partir das publicadas no ARRL Antena 
Book, edicao de 1977, paginas 327 a 
329; as coordenadas foram extraidas do 
World Atlas, tambem da ARRL, 119 
edicao. 

Com muita paciencia e um pouco de 
sorte, as figurinhas vao aparecer, tornan- 
do realidade o sonho do DXCC. Boa sor- 
te, macanudo! 



Roberto Quito de Sant'Anna - PY1DWM e" 
Engenheiro de Telecomunicapoes e Professor 
de In forma' tica da AM AN. Radioamador des- 
de 1965, 6 membro ativo de virias entidades 
radioamadorfsticas nacionais e estrangeiras, 
destacando-se: LABRE, CWRJ, CWRL, DIG, 
CHCeAGCW-DL. 



Orientavao de antenas e distancias 

10 ' ========================================== 

20 '= 0RIENTACA0 DE ANTENAS E DISTANCIAS 

30 '========================================== 

40 '= PY1DWM-R0BERT0 QUITO DE SANTANNA 
50 '= BOX 24039 - 20522 - R JANEIRO-RJ 
60 '===============================«=========== 

70 CLEAR 500 

80 CLEAR:N=20:DIH LUG$(N) , Al < N) , A2< N) 

90 ' «****ATENCA0 ! *****ATENCA0 ! *****ATENCA0 ! *****ATENCA0 ! ***** 

100 'TR00UE AS LINHAS 80 E 110, SE FOR CASO - VER TEXT0 

110 PART*="RI0 DE JANEIRO" :01=-23:O2=43 '01=LATITUDE/02=L0NGITUDE 

120 FOR 1=1 TO N:READ LUG«< I ) , Al < I ) , A2< I ) : NEXT I 

130 CLS:Z*=STRING$(40," " ) 

140 GOSUB 250 :F0R 1=1 TO 300:NEXT I:CLS 

150 ON IND GOTO 170 ,200 

160 '=======OPCAO 1======= 

170 GOSUB 400 : GOSUB 230 : GOSUB 500 
1B0 GOSUB 570 :G0SUB 740 :G0T0 80 
190 '======0PCA0 2====== 

200 B0SUB 230 : GOSUB 790 : GOSUB 570 

210 GOSUB 740 :G0T0 80 

220 '**«**SUBR0TINA PARA CHAMADAS INICIAIS 

230 CLS:GOSUB 370 :LL*=PART*:X1=01 :X2=02:G0SUB 480 :RETURN 

240 '**«**SUBROTINA DO MENU PRINCIPAL***** 

250 CLS: GOSUB 370 

260 PRINTS 198, "VOCE DESEJA CALCULOS:" 

270 PRINTS 599, "1 - DO LOCAL DE ORIGEM PARA LOCAL PRE'-FIXADO" 

280 PRINTS 527, "2 - DO LOCAL DE ORIGEM PARA QUALQUER LOCAL" 

290 PRINTS 916, "<CLEAR> PARA ENCERRAR" 

300 PRINTS 804,"SUA OPCAO E'==> " 

310 ZZ«=INKEY$:IF ZZ«="" GOTO 310 

320 IND=ASC(ZZ*) :F0R K=l TO 2:IF IND=4B+K GOTO 350 ELSE NEXT K 

330 IF IND=31 GOTO 970 

340 GOTO 310 

350 IND=IND-4B:PRINT8 B20, IND:RETURN 

360 '****»SUBROTINA PARA IMPRESSAO DO CABECALHO 

370 PRINTS 4,"*«***0RIENTACA0 DE ANTENAS E CALCULO DE DISTANCIAS*****" 

380 PRINTS 68,STRING*<55,"="):RETURN 

390 '**«**SUBROTINA PARA ORIGEM==>PRE' -FIXADO 

400 CLS: GOSUB 370 

410 PRINTS 132, "DESEJA VER RELACAO DE LOCAIS PRE ' -FIXADOS? S/N" 

420 ZZ«=INKEY«:IF ZZ«="" GOTO 420 ELSE IF ZZ$<>"S" AND ZZtO"N" GOTO 420 

430 IF ZZ»="N" RETURN 

440 CLS:G0SUB 370 :F0R 1=1 TO N: 11=1-1 :PRINTS 202+11*32, LUG$( I > :NEXT I 

450 PRINTS 980, "<ENTER> PARA CQNTINUAR"; 

460 ZZS=INKEY*:IF ZZ*="" GOTO 460 ELSE IF ASC(ZZ$)<>13 GDTO 460 ELSE RETURN 

470 '*****SUBROTINA PARA IMPRIMIR ORIGEM 

480 PRINTS 196, "ORIGEM: ";LL«;" (LATITUDE " ;X1 ;"/LONGITUDE " ;X2; " ) " :RETURN 

490 '*****SUBROTINA PARA ENTRADA LOCAL DE DESTINO 

500 PRINTS 334, "ENTRE NOME DO LOCAL DE DESTINO:" 

510 PRINTS 472,"";:LINE INPUT NM* 

520 FOR 1=1 TO N:IF NM$=LUG$(I) GOTO 550 ELSE NEXT I 

530 PRINTS 334,Zt:PRINTS 334, "NAO REGISTRADO; TENTE NOVAMENTE. . . " 

540 GOSUB 910 :PRINTS334 . Z*;S472,Z*:GDT0 500 

550 D1=A1(I>:D2=A2<I):RETURN 

560 '***«***SUBROTINA DE CALCULOS******* 

570 PI=3.1415:P-PI/180:01=01*P:02=02*P:IF D1=0 THEN D1=D1*1 

580 01=D1*P:D2=D2*P:KM=111.12:DF=02-D2 

590 IF DF>PI THEN DF=DF-2*PI :GOTO 610 

600 IF DF<(-PI) THEN DF=DF+2*PI 

610 FI=ATN(C0S<DF)/TAN(D1)> 

620 D=ATN<SIN(FI)*TAN(DF)/C0S(01+FD) 

630 IF SGN<DF)=1 AND SGN<D)=1 GOTO 680 

640 IF SGN(DF)=-1 AND SGN(D)=-1 THEN D=D+2*PI :G0T0 680 

650 IF DF=0 THEN IF 01>D1 GOTO 670 ELSE D=0:G0T0 680 

660 D=D+PI:G0T0 680 

670 D=PI 

68" i)S=0/P:DL=DS+180:IF DL>=360 THEN DL=DL-360 

690 X=SIN(01)*SI'N(D1)+C0S<01)*C0S<D1)*C0S(DF) 

700 ANG=(-ATN(X/SQR(-X*X+1 ) )+PI/2)/P 

710 SP=ANG*KM:LP=(360-ANG)*KM 

720 DS=INT(DS*10+.5)/10:DL=INT<DL*10+.5)/10:SP=INT(SP*10+.5)/10: 

LP=INT<LP*10+. 5 )/10: RETURN 
730 '*****SUBROTINA DE IHPRESSAO DOS RESULTADOS 
740 PRINTS 576,STRING*<63,"="):PRINT "AZIMUTE CURT0< GRAUS) ="; 

DS,"DIST CURTA(KM)=";SP 
750 PRINT:PRINT "AZIMUTE L0NG0(GRAUS )=" ;DL, "DIST L0NGA(KM)=" ;LP 
760 PRINTS 909, "APERTE QUALQUER TECLA PARA CONTINUAR" 
770 IF INKEY»="" GOTO 770 ELSE RETURN 
780 '»*«**SUBROTINA PARA ENTRADA COORDENADAS DESTINO 
790 PRINTS 324, "ENTRE OS DADOS SOLICITADOS: " 
800 II=463:PRINTS II ,"" ; : INPUT "LATITUDE DESTINO" ;D1 
BIO IF Dl>90 OR DK-90 GOSUB B90 :G0T0 800 
820 II=527:PRINTS II ,"";: INPUT "LONGITUDE DESTIN0";D2 
B30 IF D2>180 OR D2<-1B0 GOSUB 890 :GOT0 B20 
840 PRINTS 576,STRING$<63,"=") 

850 PRINTS 910,"C0NFIRMA DADOS? <S>IM ou <N>A0" 
860 X«=INKEY*:IF X$="" GOTO 860 ELSE IF X«<>"S" AND X«<>"N" 

GOTO B60 ELSE IF X«="N" GOTO 200 
870 PRINTS 910,STRING«(30," "):PRINTS 610, "" :RETURN 
880 '*****SUBROTINA PARA COORDENADAS FORA DOS LIMITES 
890 PRINTS II, "FORA DO LIMITE - TENTE NOVAMENTE. .." :G0SUB 910 : 

PRINTS II,Z*:RETURN 
900 '*****SUBROTINA PARA ALERTA SONORO 

910 FOR T=l TO 150:0UT 255,l:OUT 255,2:NEXT T:RETURN 
920 '«*«*«DAD0S DOS LOCAIS PRE' -FIXADOS 
'?Z0 DATA "AFRICA DO SUL" , -30, -25, "ANGOLA" , -10, -15, "ANTARTIDA" , -75,70, 

"AUSTRALIA", -30, -135, "CHINA", 30, -105 
940 DATA "EIJA-C05TA LESTE" ,40, 75 , "EUA-CDSTA OESTE" , 40, 120, "EUROPA" , 45, 0, 

"FALKLANDS",-50,60,"FILIPINAS",15,-120 
950 DATA "FRANZ JOSEPH" ,80, -50, "GALAPAGOS" ,0, 90, "GROENLANDIA" , 75,45, 

"HAWAII", 20, 165, "ILHAS DO CARIBE" , 20,75 
^60 DATA "ILHAS DO PACIFICO" , -15, 165, "INDIA", 15, -75 . "NIGERIA" , 10,-5, 

"NOVA ZELANDIA",-45,-165,"PERU",-15,75 
+ "•, tND 
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Na segunda e ultima parte deste artigo, um passe io pelas rotinas e tabelas 
que const ituem o Sistema Operacional dosEquipamentos compatfveis com o ZX81 



O Sistema Operacional 
doZX81(II) 



Renato Degiovani 



O Sistema Operacional do ZX esta protegido contra os erros 
mais comuns da programacao em BASIC. Matriz mal dimensio- 
nada. valores fora de parametros preestabelecidos, arquivos 
sem nome em cassete, etc., produzem, quando detectados, 
uma resposta do sistema na forma de uma mensagem no canto 
inferior esquerdo do video, isto e\ erro/local onde ocorreu. 

Quando um programa em linguagem de maquina esta rodan- 
do, nao se tern acesso a esse mecanismo, pois o Assembler atua 
diretamente sobre a UCP e na"o tern que ser interpretado an- 
tes de ser executado. Assim sendo, o programador deve redo- 
brar a sua aten?ao quanto a possiveis erros. 

Podemos, por outro lado, utilizar alguns recursos do mani- 
pulador de erros do Operacional e o conhecimento, para tan- 
to, nao e" muitcr complexo. Quando um erro 6 detectado (por 
exemplo, PRINT AT 43,76; "P" - erro B) o programa que es- 
tava sendo executado 6 interrompido e £ impressa a mensa- 
gem de erro B, na linha em que tal erro ocorreu. 

O Interpretador BASIC utilizou um recurso definido numa 
das instru?5es de RESTART do Z80 (mais precisamente a RST 
8) para esse procedimento. Quando a instrucao RST 6 execu- 
tada, o byte que estiver logo apos o seu codigo serd interpre- 
tado como o cardter do erro (mais 1) a ser impresso. Assim, CF 
OF corresponde a um erro G. Para testar a teoria basta gravar 
a instrucao a seguir numa linha REM, com alguns caracteres, 
seguida de RAND USR 16514: 



16514 CF 

16515 OF 



RST 8 
erro G 



ou 1 REM INT ? 



resultado deverii ser G/0. 

manipulador de erros esta" diretamente associado a varid- 
vel ERR-NR, cujo endere?o 6 16384. Assim, se essa variavel, 
que normalmente contdm o valor 255, receber qualquer outro 
valor, o Interpretador BASIC interrompera" sua operacfo e 
acusara" tal erro. Dessa forma, o resultado anterior (erro G) 



pode ser obtido, em BASIC, com POKE 16384,15. £ preciso, 
no entanto, muito cuidado na definicfo de novos c6digos de 
erro, pois alguns causarSb grandes problemas ao interpretador. 
As faixas de operacao do manipulador de erros encontram-se 
explicadas no manual do equipamento, na parte que trata das 
variaveis do sistema. 

IMPRESSAO NO VIDEO 

A impressSo, no video, de uma listagem de programa, ou 
qualquer outra coisa, obedece a regras bem simples. Existe 
na RAM uma determinada area, ou quantidade de bytes 
(793), que recebe a designacSo de arquivo de imagem, ou seja, 
ali estao gravados todos os caracteres que aparecem no Display 
(ver artigo Pequenas mem6rias, grandes economias - MS 22). 
Essa area 6 im6vel e seu inicio e determinado pela variavel do 
Sistema D-File (endere?o 16396 e 16397). As instrucSes do 
BASIC que permitem escrever na tela da TV estao ligadas ao 
PRINT, que, em ultima ana'lise, nSo passa de um POKE dentro 
do arquivo de imagem. 

arquivo de imagem inicia com um career 118 (ENTER) 
seguido de 32 caracteres por linha de impressSo e mais um ca- 
rdter 118 para indicar o fim de cada linha, assim 24*33+1=793. 
Todo o segredo da utilizaca"o do Display esta em manipute-lo 
sem que os caracteres ENTER (118) sejam alterados, pois, se o 
forem, havera" tamanha confusSo no Sistema Operacional que 
todo o conteiido da mem6ria tera que ser apagado. 

Em BASIC, podemos utilizar a instrucao PRINT com todos 
os seus complements (AT, TAB, tabulacao por virgula e 
ponto-e-virgula) para manipular o arquivo de imagens, ou en- 
tao a instrucSo POKE. A linha de programa: 10 LET A=PEEK 
1 6396+256 *PEEK 16497 far* com que a variavel A receba o 
endereco de inicio do arquivo de imagens, que 6 um cardter 
1 18. A linha 20 LET A=A+1 colocara a variavel A apontando 




a primeira parte deste artigo, falavamos sobre a rotina 
de inicializafao do sistema operacional e, como foi 

visto, quando o computador e ligado, as suas primei- 

ras a95es sao: estabelecer os parametros das variaveis do siste- 
ma (endere^s 16384 a 16508) e operar, no modo de edicSo, 
ate* que uma tecla seja pressionada. Isto e feito pela opera9§o 
de uma das mais importantes rotinas do micro, que estd tam- 
bem diretamente ligada com a producao da imagem no video. 
A figura 1 ilustra bem esse processo. 

Essa rotina e chamada Loop Principal do Display e seu fun- 
cionamento 6 bastante simples. Ela se inicia no endere90 553 
e termina no endere90 655, sendo que sua primeira fun9ao 6 
decrementar a variavel FRAMES (endere90s 1 6436 e 1 6437). 
Se o bit 1 5 , da variavel FRAMES, for 1 , entlo o micro esta em 
modo de edicao/programacao. Se o bit 15 for 0, entSo o siste- 
ma esta" executando uma PAUSE e s6 saira da rotina quando 
FRAMES for igual a 0, ou se uma tecla qualquer for pressio- 
nada. Uma vez que o bit 15 fica fora da decrementacao, o 
maior valor para PAUSE sera 32767 e qualquer valor acima 
desse nao produzira" a temporiza9So de PAUSE, pois o bit 15 
recebera" o valor 1. Sendo assim, se PAUSE > 32767, isto 
provocara" a paralisacSo do programa ate" uma tecla ser pres- 
sionada. 

Apos repor o novo valor de FRAMES, no endere90 1 6436/ 
16437, a rotina do Display produz uma varredura do teclado 
a fim de identificar se ou qual tecla foi pressionada. Isso 6 fei- 
to pela sub-rotina chamada Scan Keyboard, que retorna com 
um valor atribuido a tecla em questao. Esse valor sera" entao 
posicionado na variavel LAST-K (16421 e 16422) e a opera92o 
passa a ser dependente da tecla que foi pressionada. 

Se nenhuma tecla foi pressionada, enta"o a rotina executa 
algumas outras tarefas, como posicionar o Display para a TV, 



ordenar a sincronizacao dos pulsos da imagem, etc., que irao 
produzir, no final, uma imagem na tela do video. 

O que acontece quando o Loop Principal do Display en- 
contra uma tecla pressionada depende do modo como o sis- 
tema esta" operando. A tecla pode ser um dado na edi9§o de 
uma linha de programa, pode ser um dado na execucao de um 
programa ou pode, ainda, ser uma fun9§o de edi9ao (como os 
comandos do cursor) ou comandos diretos. A perfeita com- 
preensao de como tudo isso se passa nao 6 importante a nivel 
da programaca"o, em Assembler, pelo usuario, mas 6 impres- 
cindivel o entendimento de certas rotinas e tabelas do inter- 
pretador, residentes nos 8 K de ROM, para que sejam viaveis 
mesmo as mais simples rotinas escritas por um programador. 

A partir daqui, faremos um passeio pelo emaranhado de 
rotinas e tabelas que constituem o Sistema Operacional do 
ZX, tra9ando, quando possivel, um paralelo com a progra- 
ma93:o BASIC do micro. Apenas um aviso aos navegantes: os 
conceitos que serSo vistos podem, a principio, nao iazer mui- 
to sentido, ou se tornar incompreensiveis para a maioria dos 
iniciantes, mas com calma e paciencia 6 possivel desvendar al- 
guns miste'rios e aproveitar alguma coisa desse trabalho. 

MANIPULAgAO DE ERROS 

Todo programa esta" sujeito a uma sdrie de erros, desde a 
sua concep9ao ate' a sua depuracSb e teste final. Alguns podem 
ser de dificil eliminacSo e identificacao; logo, o programador 
que deseja atingir bons resultados deve se manter atento a pos- 
siveis falhas operacionais de seu sistema. Ocorre pordm que 
uma grande quantidade de erros origina-se, quase sempre, fora 
dos limites do sistema desenvolvido pelo programador e 6 ai" 
que devem ser tornados os maiores cuidados durante uma 
programaca"o. 
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O SISTEMA OPERACIONAL DO ZX81 



para a primeira posicSo do video, ou seja: PRINT AT 0,0. 
Assim sendo, 30 POKE A,50 6 igual a 30 PRINT AT 0,0; "M", 

com uma diferenca: a instrucao POKE 6 sensivelmente mais 
rdpida do que a instrucSo PRINT AT, pois o Interpretador 
BASIC nao tem que testar os parametros de linha e coluna. 



16514 


32 2E 28 37 


1 




16518 


34 00 38 2E 


MICRO 




16522 


38 39 2A 32 


SISTEMAS 


define a string 


16526 


26 38 


. 




16528 


01 06 0A 


LD BC,xxxxx \ C=coluna e B=linha 


16531 


CD F5 08 


CALL 2293 


1 a serem impressas 


16534 


11 82 40 


LD DE.16514 




16537 


01 0E 00 


LD BC,14 


imprime a string 


16540 


CD 6B 0B 


CALL 2923 




16543 


C9 


RET } retorna ao BASIC 



Figura 2 

Toda essa mecanica do POKE pode ser reproduzida em 
Assembler e o resultado sera uma velocidade maior na exe- 
cucao. Vejamos entao programa em Assembler que substitui 
o em BASIC anterior. 



16514 


2A 0C 40 


LD HL, (16396) 


linha 10 


16517 


23 


INC HL 


linha 20 


16518 


36 32 


LD (HL) ,50 


linha 30 


16520 


C9 


RET 


retorna ao BASIC 



16514 


3E 32 


LD A, 50 


16516 


D7 


RST 16 


16517 


18 FB 


JR 16514 



Teste-o com: 1 REM E£RND7QMTAN (RND e TAN sao 
func6es do BASIC) e RAND USR 16514. 

Outra grande novidade quando se trabalha com o Assem- 
bler, aldm da maior velocidade, 6 poder se omitir uma sdrie de 
testes e de parametros executados pelo Interpretador BASIC. 
Quando o sistema esta" executando um PRINT, o procedimen- 
to 6 simplesmente carregar o acumulador do Z80 com o cara- 
ter a ser impresso e a seguir executar a instrucao RST 16. Isso 
ira" corresponder a um PRINT carater. O programa Assembler 
a seguir ilustra essa caracteristica. 

= 10 LET A=50 

= 20 PRINT CHR$ A; 

= 30 GOTO 10 

Teste-o com 1 REM YMNOT / CLS (NOT e CLS sao ins- 
trucSes do BASIC. Para obter CLS, apos digitar /, digite THEN 
CLS. Retroceda o cursor e elimine THEN). 

Para imprimir uma frase completa e" necessario o conheci- 
mento da manipulacao dos registradores internos do Z80. A 
rotina principal do PRINT deve ser manipulada em duas eta- 
pas: em primeiro lugar, estabelecer a posicao AT e, em seguida, 
apontar para a frase copiada. 

Vejamos entao o programa da figura 2, que corresponde em 
BASIC a PRINT AT 10,6; "MICRO SISTEMAS". 

E importante salientar que a utilizacao do Assembler pres- 
supoe um perfeito dominio de sua programacao elementar, 
bem como o conhecimento da estrutura e da organizacao in- 
terna do micro. £ preciso nunca esquecer que quando se pro- 
grama em linguagem de maquina nSo se tem o Interpretador 
BASIC para auxiliar-nos em caso de erros e, frequentemente, 
nesses casos, todo o trabalho tera sido perdido. ■ 



Renato Degiovani e" formado em ComunicagSo Visual e Desenho Indus- 
trial pelo Pontiffcia Universidade CatdUca do Rio de Janeiro. Ha" mais 
de um ano utiliza microcomputadores para calculus na 6rea em que 
atua. 



MICRO SISTEMAS, novembro/83 




ANUNCIAMOS FIM DO MICROCOMPUTADOR ISOLADO 




Finalmente, o processamento de dados da sua 
empresa deixou de ficar limitado ao trabalho de 
estagoes isoladas. 

Os novos microcomputadores Dismac podem 
ser ligados entre si e a computadores de maior 
porte, compartilhando arquivos, impressoras e outros 
perifericos comuns. 

As mais variadas consultas podem ser feitas 
ao mesmo tempo, com rapidez e seguranga. 

E sua empresa pode entrar 
nesse sistema comegando pela 
configuragao mono ou 
multiusuario, pois o sistema Rede 
pode ir crescendo a medida das 
suas necessidades, expandindo-se 
ate 8 terminals inteligentes, 




trabalhando com 16 microprocessadores de alto ■ 
desempenho e ate 576 Kbytes em CPU's 
independentes. 

Uma serie de aplicativos, especialmente 
desenvolvidos para o processamento distribufdo, dao 
a sua empresa a agilidade operacional que ela precisa. 

Entre em Rede. fim do microcomputador 
isolado. comego das solugoes integradas. 

• Conhega tambem a linha de computadores 
pessoais Dismac 8100, compativel com Apple II Plus, 
nas lojas especializadas e revendedores em todo o Brasil. 



'> dismac 

Produtos da Zona Franca de Manaus 



I 
I 

■ D material explicativo 

ID demonstraijao em seu 
show-room 



empresa 

cargo 

enderego 



lele'one 



cidade.estado 



Manaus-R. lea, n.° 1 0O - Distrito Industrial - F. (092) 237-2474 • Sao Paulo - Av. Marques de Sao Vicente, n.° 600 - F. (01 1 ) 826-71 1 1 

Representantes em todo o territorio nacional. 



Sem coelhos e cartolas, este 6 um truque que vai deixar muita gente 
cismada (e so voce e seu micro saberao o segredo) 



INSTALE O MODEM A217CT NO SEU MICRO 
UM SEGUNDO DEPOIS ELE VIRA TERMINAL 

DEVIDEOTEXTO 



Gran Mago Z80 



Certamente voce algum dia ja foi 
a um circo e se encantou com 
aqueles truques maravilhosos 

apresentados pelo magico. Ou, mesmo 
que nao tenha ido a um circo, voce de- 
certo ja" assistiu a um show de magia na 
TV, teatro, em uma loja, na rua, enfim, 
alguma vez na vida voce ja deve ter sen- 
tido aquela sensacao estranha, entre cu- 
rioso e perplexo, parado defronte de 
uma cena que voce ere nao ser possivel 
mas que acontece, bem ali, diante de 
seus olhos. Pois agora chegou a vez de 
voce arrepiar seus amigos de espanto 
com seu magico particular: o microcom- 
putador. 

Gran Mago Z80 e' um programa 
que deve ser executado na presenca de 
duas pessoas: voce e um amigo. Foi de- 
senvolvido no CP-200 da Prol6gica, po- 
dendo ser utilizado em qualquer equipa- 
mento da linha Sinclair; e por nao se tra- 
tar de um programa complexo, podera 
rodar tamtam em micros de outras fa- 
milias, median te pequenas mudancas. 

Voce e chamado de Mestre pelo Ma- 
go, e e desafiado a descobrir um niimero 
que ele vai pensar. Se voce errar, o Mago 
lhe dara" nova chance, mas se errar de 
novo ele absorvera seus poderes mdgicps 
e passara a comandar o espetaculo. A 
partir dai, seu amigo ira" interagir com o 
Mago, o qual tera" que adivinhar uma 
carta escolhida aleatoriamente pelo seu 
amigo em um baralho. 



Jose Rafael Sommerfeld 



la. carta 



2a. carta 



10a. carta: 
a escolhida 





Alem de todos os servicps que o seu micro faz por voce, agora ele pode se transformar num terminal de informacoes e 
diversoes, dentro de sua casa. 

A CM A acaba de lancar o Modem A217CT. O equipamento que faltava para fazer seu micro falar com o videotexto. 

Com o Modem A217CT e o seu telefone, voce tern acesso a todas as informacoes do videotexto: saldo da conta corrente, 
da poupanca, curso de ingles, reserva de passagens, programacao da TV, noticias, congressos, feiras, galerias de arte, cinema 
e diversoes. Tudo aquilo que voce perderia horas procurando, chega a sua casa em apenas alguns segundos. 

O Modem A217CT e o caminho mais facil para seu micro falar com o videotexto: ele tern baixo custo, e compacto, 
voce mesmo instala e ja pode conhece-lo em qualquer distribuidor CM A. 



» 






CMA 



Figura 1 - A carta marcada 



Av. Giovanni Gronchi, 6065 - Vila Andrade - CEP 05724 - Sao Paulo - SP N6s tOnsfomiamOS 
Tels.: (Oil) 548-2249 - 881-8166 - Telex (Oil) 30221 CMAS - BR teoiologia em servi^O. 
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GRAN MAGO Z80 



CARTA 


INDICE 


SENHA 


AS 


1 


19 


DOIS 


2 


18 


TRES 


3 


17 


QUATRO 


4 


16 


CINCO 


5 


15 


SEIS 


6 


14 


SETE 


7 


13 


OITO 


8 


12 


NOVE 


9 


11 


DEZ 


10 


10 


VALETE 


11 


9 


DAMA 


12 


8 


REI 


13 


7 


NAIPE 


INDICE 


SENHA 


OURO 


1 


9 


COPAS 


2 


8 


ESPADA 


3 


7 


PAUS 


4 


6 



Figura 2 - Tabelas de indices e senhas 

O TRUQUE 

Para entendermos bem o programa, 
vejamos primeiramente como funciona a 
magica com as cartas (este truque pode 
ser feito com qualquer baralho comum, 
excluindo-se os coringoes). Entregue o 
baralho a seu amigo e peca-lhe que o 
embaralhe e corte a vontade. Abra-o em 
leque com os naipes para cima — sem es- 
quecer de explicar a seu amigo que se 
trata de urn baralho comum, sem qual- 
quer sequencia ou ordem. Nesse mo- 
menta, voce deve procurar marcar a dd- 
cima carta (figura 1), pois ela sera a car- 
ta escolhida (cuidado na contagem, pois, 
se ao inve's de voce marcar a decima vo- 
ce marcar outra, seu espetaculo iti por 
agua abaixo). Depois disso, feche o le- 
que e ponha o baralho, virado com os 
naipes para baixo, em cima da mesa. 

Peca para seu amigo pensar em um 
numero entre 10 e 20 e fazer um mon- 
te com o numero de cartas correspon- 
dente ao que ele pensou. £ importante 
que este monte seja feito passando-se as 
cartas uma a uma, de cima do baralho 
para baixo do monte, fazendo com que 
a primeira carta do baralho (de cima pa- 
ra baixo) passe a ser a ultima do monte , 
a segunda a penultima e assim por dian- 

Agora diga a ele para pegar a n® s ^ ma 
carta do monte (sempre com as cartas 
em cima da mesa e com os naipes para 
baixo), onde n serf igual a soma dos al- 
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garismos que ele pensou. Exempliflcan- 
do : digamos que o numero pensado seja 
17 (1 + 7 = 8). Como 17 € igual a 8, pe- 
ca para ele pegar a oitava carta. Ai en- 
tao voce faz um TCHAN-TCHAN- 
TCHAN-TCHAN e diz para ele (antes de 
virar, € claro) qual 6 essa carta. 

No nosso exemplo (figura 1) seria o 
oito de paus, pois seja qual for o nume- 
ro pensado entre 10 e 20 (exceto eles), 
o seu pr6prio valor menos a soma de 
seus algarismos sera sempre igual a 9, 
que sera tambe'm o numero de cartas 
que sobrara' no monte quando seu ami- 
go pegar a n^si ma carta, ou seja, a deci- 
ma que voce havia marcado. Vamos 
comprovar : 



• 11 -> 1 + 1= 2; 11-2 = 9 

• 15+1 +5 = 6;15-6 = 9 

• 19 ■> 1 +9 = 10; 19 - 10=9 

O SHOW NO MICRO 

Vejamos agora como funciona a ma- 
gica no micro. No comeco, o programa 
fica exibindo seu nome, esperando ins- 
tructs para prosseguir - e 6 ai que vo- 
ce deve aproveitar para mostrar o bara- 
lho a seu amigo, marcando entao a deci- 
ma carta. Depois disso, ao colocar o ba- 
ralho sobre a mesa, de andamento ao 
programa teclando S. O programa testa- 
rd seus poderes por duas vezes - e feliz- 
mente voce nunca iii acertar o numero 





GranMagoZSO 




1 


REM GRAN MAGO Z-80 


230 PRINT AT 15,2 


"SEUS PODERES 


2 


REM JOSE RAFAEL SOMMERFELD 


MAGICOS FORAM ABSORVIDOS PEL 


3 


REM CAIXA POSTAL 1709 


OS MEUS CIRCUITOS. 


" 


4 


REM CEP 24120 NITEROI 


235 PAUSE 120 




5 


REM PROFESSOR KASSIMIROS 


240 FOR 1=3 TO 28 


STEP 4 


6 


REM TEL. 224-2235 


245 FOR Z=l TO 10 




7 


REM ** MICRO SISTEMAS ** 


246 NEXT Z 




8 


DIM C$(13,6) 


250 PRINT AT 19,1 


"AH" j 


I 9 


DIM N$(4,6) 


260 NEXT I 




10 


LET X=4 


270 CLS 




11 


LET C$(l)=" AS" 


280 PRINT AT 1,7; 


'AGORA E MINHA 


.12 


LET C$(2)=" DOIS" 


VEZ" 




1 13 


LET C$(3)=" TRES" 


290 PRINT AT 4,0; 


'PENSE EM UM N 


14 


LET C$(4)="QUATRO" 


UMERO ENTRE 10 E 20" 


15 


LET C$(5)="CINCO" 


300 PRINT AT 7,1; 


'SE JA TIVER P 


i 16 


LET C$(6)=" SEIS" 


ENSADO TECLE ""s"" 




17 


LET C$(7)=" SETE" 


305 IF INKEY$o"S 


1 THEN GOTO 30 || 


18 


LET C$(8)=" OTTJ" 


5 




19 


LET C$(9)=" NOVE" 


310 PRINT AT 10,2 


; "AGORA PEGUE 1 


20 


LET C$(10)=" DEZ" 


ESSE BARALHO QUE 


ESTA NA SUA j 


21 


LET C$ (11)=" VALETE" 


FRENTE E FACA UM 


MONTE COM O 


22 


LET C$ (12)=" DAMA" 


NUMERO DE CARTAS 


QUE VOCE HAV 


23 


LET C$(13)=" REI" 


IA PENSADO . " 




24 


LET N$(l)="OURO" 


320 PRINT AT 16,3 


"QUANDO TERMI 


25 


LET N$(2)="COPAS" 


NAR TECLE »"S"" n 




i 26 


LET N$(3)="ESPADA" 


330 IF INKEY$o"S 


' THEN GOTO 33 


27 


LET N$(4)="PAUS" 







30 


PRINT , , " QUANDO ESTIVER AP 


340 CLS 




j TO A 


ENFRENTARMEUS PODERES MAGIC 


350 PRINT AT 5,1; 


'AGORA PEGUE E 


OS TECLE ""S" n ." 


SSE NOVO MONTE E TIRE DALI A CA 


50 


IF X=21 THEN LET X=4 


RTA QUE OCUPA A POSICAO IGUAL 


100 


PRINT AT X, 8; "GRAN MAGO Z-8 


A SOMA DOS ALGA- RISMOS DO NUME 


1 o" 




RO QUE VOCE PENSOU 




103 


PRINT AT X,8;" 


360 PRINT AT 10,5 
PENSADO = 15" 


"EX : NUMERO 


105 


LET X=X+1 


370 PRINT TAB 27; 


■1+5=6" 


110 


IF INKEY$o"S" THEN GOTO 50 


380 PRINT TAB 10; 


"PEGUE A SEXTA 


120 


CLS 


CARTA" 




130 


PRINT , , " PRIMEIRAMENTE TES 


390 PRINT AT 16,1 


"QUANDO PEGAR 


TAREI OS PODE-RES MAGICOS DE MEU 


A CARTA TECLE ""S 


" " 


MESTRE SENHOR" 


400 IF INKEY$<>"S 


THEN GOTO 40 |f 


135 


PAUSE 180 







140 


PRINT , , , , " DIGA POR FAVOR, 


410 CLS 




MEU MESTRE, QUALNUMERO ESTOU PEN 


420 PRINT AT 2,2; 


AGORA OLHE PA 


SANDO . ", ,> ,"DE 1 A 20" 


RA ESSA CARTA" 




150 


INPUT A 


430 PRINT TAB 8;"E CONCENTRE-SE 


160 


PRINT AT 13,4; "QUE PENA ... 


" 




VOCE ERROU" 


440 PAUSE 180 




170 


PRINT AT 15,9;"TENTE DE NOV 


450 PRINT AT 6,5; ' 


ESTOU CAPTAND 


0" 




O ALGO" 




180 


PAUSE 180 


460 PAUSE 120 




190 


CLS 


470 PRINT AT 9,8;' 


VOU ADIVINHAR , 


200 


PRINT AT 5,1;"DIGA-ME AGORA 


" 




QUE 


NUMERO ESTOU PENSANDO . VOU 


480 PAUSE 120 




j LHE 


AJUDAR .",,,, "DE 1 A 10 " 


490 PRINT AT 13,3; 


"A CARTA E "; ! 


! 210 


INPUT B 


C$(20-A);" DE ";N$(10-B) 


[ 220 


PRINT AT 13,2;"LAMENTO ... 


500 PAUSE 300 




ERROL 


NOVAMENTE" 


510 CLS 




225 


PAUSE 120 


520 GOTO 30 - 





em nenhuma das vezes (na vcrdade t n£o 
se trata de teste, e sim de uma forma de 
voce passar ao micro qual a carta mar- 
cada). 

Quando voce" estiver sendo testodo, 
impression e seu amigo, diga coisas do 
tipo: "Das 95 vezes que tentei ja acertei 
■15". O importante 6 faze-lo acreditar 
que realmente houve uma tentativa sua 
de adivinhar algum numero. 

No primeiro teste o micro the pede 
para adivinhar um mimero de 1 a 20 (in- 
forme, enta"o, o mimero da carta). Para 
que nada seja percebido,aplicamosaqui 
uma pequena formula: SENHA = 20 — 
IftDICE^onde; 

• SENHA - numero que voce in forma- 

• INDICE - valor da carta e posiciona- 
mento na tabela (figura 2). 

Vol i Dn do ao exemplo da figura 1 , a 
senha seria 12, pois o indice de 8 e" ele 
rnesmo e 20 - 8 = 1 2 (veja > na figura 2, 
a tabela de correspondence de indices 
para cada carta, com suas respectivas se- 
nhas j i calculadas). 

No segundo teste, voce tertf que adi- 
vinhar um numero de I a 10 (este & para 
voce in for mar o najpe da carta). O pro- 
cedimento € similar ao do numero, sen- 
do a f6rmula: SENHA ■ 10 - INDICE. 
Seguindo ainda o nosso exemplo (oito 
de paus), a senha seria 6, pois o fndioe 
de Paus e* 4 t e 10 - 4 = 6 (na figura 2 es- 
xi. tambe'm a tabela de indices de naipes). 

As tabelas e f6rmulas sffo simples de 
decorar, mas cuidado para nSo esquecer 
de nada ou errar nos calculos na hora, 
pois um erro neste momento p odera es- 
tragar o show do Mago. Outra coisa: e 
imprescindi'vel que voce aja com naturali- 
dade para que seu amigo pense que se 
trata de uma tentativa sua de adivinhar 
os numeros. 

Depois dos testes, o Mago assume o 
espetaculo e cabera" a voce apenas auxi- 
liar seu amigo na contagem das cartas. 
No final, a grande sensacSo: o Mago dira 
a seu amigo qual foi a carta escolhida! 

Uma ultima dica: na"o faca este tru- 
que por repetidas vezes para a mesma 
pessoa, pois o fato de voce ter que olhar 
as cartas pode levar seu amigo a iescon- 
fiar, e, u final, voo§ na"o quer seu truque 
desvendado, nSo 6 mesmo? 

Mcus agradedmentos ao Magico In- 
tern acional Prof. Kassi minus (meu pai) 
que colaborou com este artigo, conce- 
dendo, com grande boa vontade, este 
truque. « 




Jose" Rafael Sommarfald trabaiha hi mais da 
tits aftos com programafio de micfocompw 
tadoras. £ colaborador da MICRO SISTEMAS 
desde o ntirmro 22 a atualmarm trabalha no 
IBAM - tnstttuto Brasllelro de Administra- 
e*j Municipal. 
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MCnica. 
Acompanheira ideal. 

Seu micro tern agora a companheira perfeita. 
Alem de bonita a Monica tern boa cabcca f com a qualidade de tmprcssao 
asscgurada para mais de 300 milhoes de caracteres, ou seja, mais de 5 anos. 
Tern velocidade de 100 cps e Lmprcssao bidirccional. com procura logica. 

A Monica "fala" portugues t com cedilhas, acentos etc. Imprime textos, 
dcsenhos e graficos em formularios continuos com ate 10 polegadas de 
largura. em ate 5 vias, ou em papel carta. 

Simples, ja que sua eletronica reside em apenas uma placa, a Monica 
e tambem muito versatile Suas possibilidades de urilizacao podem ser 
ampliadas com modulos opcionais. adequados as mais diversas aplicacocs. 

Mas o melhor e que a Monica tern a qualidade, tecnologia de vanguarda 
e eficiencia comuns a toda a linha de produtos Elebra Informatica. 



Vtmtadt de Jiseo rigido 
com tarmcho mnM 



Ttltinpnaor* KSR 



Atk* - EI90SO 



Imprrtwm IQ6 cps 



ffortcw ■ F500 AP 
Unidadt dt disco flfiivr 



Emilia Cnficm ■ BOOH 
Impressora 100 cps 




Hoficto ■ FW-TR 
EMfeA d* disco flexivtl 



INFDRyKTfCK 



EfUfefldkC Coortabil kladt. 
EmTbdaa Linha. 
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MAIS SUCESSO RARAVOCE! 



Comece uma nova fase na sua vida prof issional. 

Os CURSOS CEDM levam ate voce* o mais moderno ensino 

tecnico programado e desenvolvido no Pafs. 



CURSOS KJMfflCUIMTI 



CURSO DE ELETRONKA 





cursqde 



Este CURSO, especialmente programado, oferece os 
fundamentos de Lmguagem de Programaqa"o que domma o universo 
dos microcomputadores. DinSmico e abrangente. ensina desde o BASIC 
basico ate o BASIC mais avangado, mclui'ndo nogoes basicas sobre 
Manipulagao de Arquivos, T6cmcas de Programagao, Sistemas de 
Processamento de Dados, Teleprocessamento, Muluprogramapao e 
Tecnicas em Lmguagem de Maquina. que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 



CEDM-1 • KIT de Ferramentas. CEDM-2 KIT Fonte de Alimentac3o 
+ 15-15/1A. CEDM-3 • KIT Placa Experimental 
CEDM-4 KITde Componentes. CEDM 5 • KIT Pre-amphficador 
Estereo. CEDM-6 ■ KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo pr6prio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida. o CEDM col oca a sua disposigao uma 
equipe de professores sempre muito bem acessorada. Alem disso, vocfi 
recebe KITS preparados para os seus exercfcios praticos. 

Agil, moderno e perfeitamente adequado a nossa realidade, os CUR- 
SOS CEDM por correspondencia garantem condicoes ideais para o seu 
aperfeicoamento profissional. 





GRATIS 



Voc§ tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias voce* recebe nossos catalogos de apresentacao. 



KIT CEDM Z80 

BASIC Cientlfico. 

KIT CEDM Z80 

BASIC Simples. 

Gabanto de Fluxograma 

E-4. KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 




' POM Avenida SSo Paulo, 718 - Fone (0432) 23-9674. 
I_JU.LM I CAIXA POSTAL 1642 -CEP 86100 - Londrina - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCE 

Solicito o mais rapido possfvel InformacSes tern compromisso sobre o 

CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

MS 



Caderno Especial da 
III Feira Internacional 
de Informdtica 



Saldo positivo, 
apesar dos pesares 





festa foi boa. Cerca de 300 mil pessoas visitaram a 
Feira, um espaco de 20 mil m 2 onde quase 250 em- 
presas (90% delas nacionais)expunhamseusprodutos. 
neon reinou absolute, complementando a esmerada decora- 
cao dos estandes, enquanto feixes de laser verdes e vermelhos 
cruzavam o ar, complementando o torn futuristico do ambiente. 

No outro lado do Parque Anhembi, no Palacio das Conven- 
ers, o Ministro de Assuntos Fundiarios e Chefe do Conselho 
de Seguranca Nacional, Danilo Venturini, abria o XVI Congres- 
so Nacional de Informdtica dizendo a um auditorio lotado que 
o setor sera" instrumento indispensdvel para a superacao dos 
obstaculos advindos das atuais dificuldades conjunturais bra- 
sileiras, e advertia: "Devemos redobrar nossos esforcos para 
conquistar o pleno domi'nio sobre todas as fases da tecnologia 
da informacao". 

presidente nacional da SUCESU - Sociedade dos Usua- 
rios de Computadores e Equipamentos Subsidiaries, entidade 
promotora do evento, Jose Henrique Portugal, por sua vez, tra- 
cou um paralelo entre a indiistria de Informatica hoje e a in- 
diistria automobili'stica dos anos 50 e afirmou: "Com a Histo- 
ria na mao 6 imperativo argumentar a favor da inteligencia na- 
cional pela razao do desejo de todas as empresas e empresa- 
rios brasileiros de andar por suas prdprias pernas, comanda- 
dos pelos seus proprios ce'rebros, sem as caixas pretas de tecno- 
logias nao dominadas". 

De volta a Feira, onde 6 possivel constatar, em termos ma- 
terials e concretos, o verdadeiro estagio de desenvolvimento da 
indiistria nacional, viu-se — pelo menos em termos de micro- 
informatica — que a situacao, se na"o esta tao boa quanto dese- 
jam Venturini e Portugal, nao esta tao ruim quanto muitos a 
pin tarn. 

A criatividade de projetos originais, 6 forcoso reconhecer, 
continua em baixa, sobretudo na 2rea de software, onde pre- 
dominam os pacotes estrangeiros, "traduzidos" ou nao. No 
hardware, os modelos seguem de perto os padroes estabeleci- 
dos pela Sinclair, pela Apple e pela Radio Shack (linha TRS). 

Esta Feira, alias, marcou a explosao da linha Apple (ja exis- 
tem mais de dez modelos diferentes), em contraposic^o a 
um relativo dech'nio da linha TRS (fora o Color Computer, ins- 
pira?ao de tres lan9amentos, surgiu apenas um Modelo III, e a 
Dismac abandonou os TRS, passando-se para a linha Apple) e 
um discreto aumento dos compativeis com o Sinclair. 

Esses equipamentos, contudo, nem sempre seguem a risca 
os projetos dos similares estrangeiros que emulam. Na luta pa- 
ra diferenciar produtos basicamente iguais, diversos fabricantes 
introduzem modifica95es para atrair a aten?ao dos comprado- 
res, seja a nivel de eletronica (por exemplo, os Apples com 
microprocessador Z80 incorporado, para poder rodar dircta- 
mente programas em CP/M), possibilidades adicionais de cone- 
xao de perifdricos, ou mesmo pacotes aplicativos especiTicos 
para diversas areas. Uma surpresa foi o numero de computado- 




res de 16 bits - compativeis ou nao com o IBM-PC — , bem 
maior do que se esperava, a\6m dos equipamentos capazes de 
operar em oito e 16 bits. 

Registre-se tambCm alguns projetos originais genuinamente 
brasileiros, como e' o caso da rede da Scopus, do sistema de 
controle da Embramic e dos protocolos de comunicacao para 
Apple, entre outros. 

No balanco geral, pode-se considerar o saldo positivo. Para 
a maior parte das necessidades brasileiras, os produtos expos- 
tos sao tecnologica e operacionalmente suficientes. Apesar do 
entusiasmo que os computadores vem despertando nos mais 
variados segmentos da popula?ao, o mercado ainda e pequeno 
(todos os fabricantes, sem excecSo, queixam-se da falta de es- 
cala, que impede um maior barateamento dos produtos e a 
producao local de determinados componentes), encontrando- 
se em fase de formac5o. Antes de pensarmos em maiores voos 
tecnol6gicos, e' preciso consolidar o mercado, difundindo o 
uso da Informa"tica e criando empresas financeiramente sauda- 
veis, com recursos para podercm investir em tecnologia. Ha 
ainda as universidades, os institutos e centros de pesquisa, que 
precisam ser estimulados, e cuja colabora9ao com a indiistria ja 
tern chegado a resultados bastante compensadores. 

Um mercado nacional, forte e auto-suficiente, nao se forma 
da noite para o dia, e sempre havera os que nada buscam alem 
do lucro facil. E preciso, contudo, ter cuidado com as generali- 
zacoes, que simplesmente colocam "no mesmo saco", de ma- 
neira indiscriminada, empresas que possuem estratdgias de pes- 
quisa e desenvolvimento totalmente diferenciadas. 

As autoridades do setor tratam a reserva de mercado como 
um "permanente transitorio", e, assim sendo, caso a reserva ve- 
nha a cair, os que limitam-se a copiar terao o desprazer de ver 
seu rendoso neg6cio ir por agua abaixo, enquanto aqueles que 
encontraram solu^oes originais para problcmas especiTicos bra- 
sileiros verao garantida sua fatia de mercado. Nao ha razao pa- 
ra afli9ao ou argumenta9oes precip'itadas. E tudo uma qucstao 
de tempo. E competcMicia. 
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Linha SINCLAIR 



Criatividade no hardware, 
mesmice no software 




III Feira de Informatica signifi- 
ed! um marco decisivo no que 
diz respeito aos pequenos equi- 
pamentos, ou seja, para a linha Sinclair. 
Ate" entao vistos como "micrinhos" que 
s6 tinham aplicacao nos jogos ou so 
serviam para rodar programas elementa- 
res, esses equipamentos tiveram uma 
grande evolugao na parte de hardware. 

De fato, o que se tern atualmente 6 
uma empresa (Microdigital) seguindo 
mais de perto o projeto do ZX81, em 
relacao a quantidade de chips utilizados, 
e as outras empresas (Prol6gica, Ritas, 
CDSE e Engebras), seguindo caminhos 
pr6prios, o que, do ponto de vista do 
usudrio, nao im porta muito. que im- 
porta, no caso, sao as caracteristicas fi- 
nals com as quais o equipamento sera" 
apresentado ao consumidor. 

Com esses lancamentos, o usudrio 
passa a ter uma boa gama de modelos a 
escolher, indo do mais simples — o 
TK83, da Microdigital — ao mais com- 
pleto - o Ringo, da Ritas do Brasil -, 
passando pelo AS 1000, da Engebras, 
pelo Apply 300, da. CDSE, pelo CP-200, 
da Prol6gica e pelo TK85, tambem da 
Microdigital. 

No que diz respeito a linguagem 
(BASIC Sinclair), todos eles sao compa- 
tiveis e nao hi necessidade de alteracoes 
nos programas de um equipamento para 
que ele possa ser rodado em outro. Mes- 
mo as gravacoes de fita cassete podem 
ser utilizadas em qualquer equipamento. 

Quanto a funcionalidade, cada equi- 
pamento possui pontos a serem conside- 
rados: 

• TK83 - e o mais simples dos equipa- 

mentos e nao possui nenhu- 
ma novidade, a nao ser um 
design mais elegante; 

• TK85 - e basicamente um TK83 

com memoria de 16 ou 48 
Kb interna, teclado tipo 
pastilha e uma EPROM com 
high speed, verify e rotinas 
de manipulacao dados; 



• CP-200 — nao trouxe nenhuma novi- 

dade. As implementagoes 
mostradas na Feira ficaram 
a cargo de Firmas indepen- 
dentes; 

• AS 1000 - projeto simples, com te- 

clado piano de membrana e 
modulos de expansao de 
memdria internos; 

• R470 (Ringo) - teclado tipo chiclete, 

teclas especiais, inversao de 
video programdvel ou via 
teclado e cartuchos especiais 
de programagao; 

• Apply 300 - nao foi mostrado na 

Feira. 
De todos os equipamentos apresenta- 
dos, o Ringo merece o maior destaque 
pela gama de recursos oferecidos, o que 
o colocou a frente ate* de computadores 
da linha TRS, pois apresentou imple- 
mentagoes so encontradas em equipa- 
mentos de muito maior porte. 

MUITO HARD, POUCO SOFT 

As grandes atragoes, no entanto, fica- 
ram a cargo de fabricantes de periferi- 
cos, que se revelaram altamente criati- 
vos. O que mais se sobressaiu foi o Su- 
per CP-200, da Polimicro, que possui 
teclado numerico reduzido e com opera- 
goes matema"ticas, chaves para controle 
do bip e inversao de vfdeo, auto SHIFT, 
auto FUNCTION, auto repeticao de te- 
clas, leds de indicagao e dois joysticks, 
alem de redefinigao de caracteres. 

A Tplak tambem apresentou suas no- 
vidades, como o Ioplak (placa de In/Out 
com ate oito entradas e saidas para con- 
trole de reles), o Biplak (um bip de te- 
clagem para equipamentos que nao o pos- 
suem) e o Caraplak (um redefinidor de 
caracteres que proporciona recursos s6 
encontrados em equipamentos de alta 
resolugao grafica). 

Apesar de a Feira ter mostrado uma 
boa evolugao de hardware, o software 
nao apresentou em momento algum evo- 
lucao de qualidade. Nao houve um so 



Renato Degiovani 



langamento que merecesse maior aten- 
gao pelo seu ineditismo. Os jogos ainda 
sao os mesmos jogos e os aplicativos do- 
mesticos (chamados "serios") nao foram 
expostos pelas software houses. 

Esse estado de coisas pode ser ex- 
tremamente prejudicial a implantagao 
de uma sociedade informatizada, pois li- 
mita (e muito) a utilizagao dos micros. 
Ainda na"o temos software houses preo- 
cupadas com uma linguagem acessi'vel 
ao usuirio nacional. 

A Feira trouxe, ale"m disso, uma ou- 
tra discussao. Com o incremento da li- 
nha Sinclair — atualmente dispomos de 
tres linhas de micros bem definidas: a 
Sinclair (ZX), a TRS e a Apple - o mer- 
cado de micros torna-se muito sensivel a 
aspectos funcionais ate entao relegados 
a segundo piano. De fato, nao interessam 
mais ao usuario equipamentos compati- 
veis apenas com eles mesmos e sim que 
essa compatibilidade total entre micros 
seja a mais extensa possivel. Isso e uma 
das tonicas dos micros Sinclair, que pos- 
suem compatibilidade total entre os di- 
versos equipamentos. 

Na reahdade, um sistema Sinclair 
com implementagoes deixa, em termos 
de recursos, qualquer TRS "a ver na- 
vios". E no momento em que for incor- 
porado aos ZXs um sistema similar aos 
disk drives, a disputa entre essas duas li- 
nhas ficara muito mais acirrada. 

Mas poderiamos questionar a 16gica 
Sinclair quanto a sua aplicagao em seto- 
res mais especificos, como aplicagoes 
comerciais e empresariais. A falta de ins- 
trugoes (READ, DATA, DEFFn etc) so 
e sentida pelos que realmente nao conhe- 
cem a programagao desses equipamentos. 
Alem disso, os micros dessa linha sao de 
longe os mais fdceis de ser operados e 
sua linguagem BASIC 6 a mais facil de 
ser aprendida. Isso tudo, somado ao bai- 
xo custo desses micros pode, e ira" sem 
diivida alguma, credenciar essa linha de 
equipamentos como uma das mais vid- 
veis na popularizagao do uso dos micro- 
computadores. 





TK83 



O TK 2000 Color, novo micro que utiliza processador 6502, o vi- 
deogame Onyx e uma interface paralela de impressora para os TKs de 
linha Sinclair foram os lancamentos da Microdigital, que mostrou tam- 
bdm o TK-83, este uma versdo aprimorada do TK82-C. 

Com um preco bastante reduzido para os recursos que oferece (se- 
gundo a empresa, deverd custar por volta de Cr$ 490 mU quando chegar 
ds lojas em dezembro), o TK 2000 Color possui microprocessor 6502, 
16 Kbytes de ROM (onde se localizam o interpretador BASIC e um uti- 
litdrio contendo um mini-assembler e um monitor disassembler! e 64 
Kbytes de RAM. O equipamento aceita disquetes de 5 1/4", pode con- 
trolar, por software, dois gravadores cassete e tern conexao paralela tipo 
Centronics para impressora. Tern teclado profissional de 54 teclas, 65 



interface paralela com TK 85 

comandos (acessados por apenas uma tecla), 46 fungoes, 59 caracteres 
alfanumdricos e 49 grdficos, alem de quatro teclas de movimentacdo de 
cursor, duas de disparo (para jogos) e uma de RESET. Ha quatro modos 
de display: texto (40 caracteres por 24 linhas), grafico de baixa resolu- 
gao (40 x 80), grafico de alta resolucao (280 x 192 pontos) e texto de 
alta resolucao. O sistema gera seis cores e tern duas saidas de video: RF 
(PAL-M) ou direta, para monitores. O TK 2000 Color 4 compativel 
com o BASIC Applesoft , contudo, a nivelde Assembler, o equipamento 
utiliza um formato prdprio, nao sendo, portanto, compativel com os 
demais Apples. A Microdigital estd desenvolvendo uma sdrie de aplica- 
tivos e jogos para o TK 2000 Color que, de acordo com a empresa, es- 
tarao tambdm dispontveis no final do ano. 

O videogame Onyx, que comecard a ser comercializado tambem em 
dezembro por Cr$ 250 mQ e jd com 20 cartuchos de jogos em oferta, 
tern alta resolugao grafica e 16 cores, aldm de produzir vdrios efeitos so- 
noros. Vem acompanhado por dois joysticks, cada um deles contendo 
um mini-teclado. 

O TK 83, que substitui o TK82-C, aldm da caixa mais bonita, traz 
um aperfeigoamento de eletronica: o circuito responsdvel pela funcdo 
SLOW, que no modelo anterior ficava numa placa separada, superposta 
sobre o circuito principal vem agora incorporado a este circuito. O 
preco de langamento 4 de Cr$ 140 mil. 

Jd a interface paralela tipo Centronics - prevista para dezembro a 
um custo aproximado de Cr$ 1 00 mil - abre para os TKs 82C, 83 e 85 
uma ampla gama de aplicagoes, ao permitir-lhes saidas impressas de boa 
qualidade. O modelo exposto na Feira, por exemplo, interligava um TK 
85, com 16 K, a uma impressora matricial Monica , da Elebra. de 100 
CPS e 80 colunas. 




Ringo 



Na linha Sinclair, as novidades da III Feira 
de Informatica ficaram por conta de dois lan- 
camentos: Ringo, da Ritas do Brasil, e o AS 
1000, da Engebras. O Ringo trabalha com gra- 
vador cassete, e pode serligado a televisor co- 
mum. Sua memdria inicial 4 de 16K bytes de 
RAM, expansivel ate" 48K; memdria ROM de 
8K expansivel ate" 16K. O Ringo possui in- 
terface para utilizagao de modem e joystick, 
e entre seus perif4ricos encontra-se interface 
para utilizagao de mdquina de escrever elitrica 
como impressora, sintetizador de sons, disca- 
dor automdtico de telefone, gravador de 
memdrias EPROM e interface "ultra fast" pa- 
ra tape deck. Com o cartucho Editor Z 80, o 
usuario poderd programar o Ringo em Assem- 
bler. A comerciahzagao do Ringo sera atrave's 
de lojas especializadas e magazines, e seu pre- 
go fica por volta de CrS 300 mil. 




AS 1000 



O AS 1000 tern memdria inicial de 16 
Kbytes de RAM, expansivel ate" 48K, atrave's 
de mddulos de 16K; trabalha com gravador 
cassete, recebendo ate quatro gravadores com 
o uso da interface AS 100 e pode ser ligado a 



qualquer TV. Entre os perifdricos que podem 
ser ligados ao AS 1000 estao modem, joystick 
e speed file. Q AS 1000 estd disponivela par- 
tir de novembro nas lojas e seu prego d de 
Cr$ 180 mil. 
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Linha TRS-80 





Sysdata III 




T Color 

A Sysdata, fabricante do jd conhecido JR. 
lancou dois outros computadores da linha 
TRS. O TColor, compativel com o TRS Color 
Computer, utiliza microprocessador Motorola 
6803, tern monitor de 8 Kbytes de EPROM e 
memdria standard de 4 K RAM, expansivel 
ate" 20 K por mddulos externos de 6 K. 
equipamento id vem com interfaces RS232C e 
para cassete. Pode gerar 256 notas sonoras e 
oito cores, fora o fundo. Sua linguagem, o 
BASIC Microsoft, permite comandos multi- 
plos por linha e incorpora as instrucdes READ, 
DATA e RESTORE. O teclado d do tipo chi- 
cletes, com 49 teclas mais barra de espaco, in- 
cluindo teclas de comando direto. seu gabi- 
nete, bastante compacto, inclui a fonte de ali- 
mentacdo, e o computador aceita cartuchos 
externos intercambidveis de programas ou jo- 
gos. Seu preco de lancamento d de Cr$ 380 
mil. 

Para as aplicacoes mais profissionais, a em- 
presa lancou o Sysdata III, equipamento com- 
pativel com o TRS-80 modelo III. Baseado 
em microprocessador Z80A e com 64 K de 
memdria RAM, o Sysdata III pode rodar dois 
sistemas operacionais: TRSDOS (com BASIC 
residente em 16 K ROM e tela formato 64 x 
16) e CP/M (tela em 80 x 25). Tern dois ca- 
nais de comunicacao serial (para impressora, 
modem, outros micros, etc.), interface parole- 
la para impressora e teclado profissional des- 
tacdvel com teclado numdrico reduzido. Aldm 
do BASIC, o Sysdata III aceita as linguagens 
COBOL, Fortran, Pascal, Lisp e Forth. Possui 
ainda capacidade grdfica de 128 x 48 elemen- 
tos e recursos semi-grdficos no modo 80 x 25. 
O equipamento, a exemplo do MC-10, comeca 
a ser comercializado a partir de novembro. O 
preco para uma configuracao com UCP /tecla- 
do, video de fdsforo verde, impressora de 100 
CPS e dois disquetes de 5 1/4" estd por volta 
dos CrS 3,5 milhdes. 
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Super 700 



Vdrios lancamentos estiveram em demons- 
tracdo no estande da Prologica, entre osquais 
o Super 700, uma versdo modular do Sistema 
700 composta por CPU, fontes de alimenta- 
cdo, video, teclado e unidade de disco, com 
novas funcoes de video. Na linha de impresso- 
ras, a Prologica apresentou ao publico a P-7 40, 
com 132 colunas e velocidade de impressdo 
de 400 CPS; a Qualitat, com 18 agulhas (o do- 
bro das impressoras tradicionais) velocidade 
de 130 ate 200 CPS e com caracteres da lin- 
gua portuguesa e a P-725, uma nova versdo da 
P-7 20, com 250 CPS. Outras novidades foram 
o Pronet, rede local composta por urn geren- 
ciador com disco ri'gido de 10 a 96Mb, con- 
trolador e um processador que pode ser liga- 
do com vdrios micros Sistema 700, e o Didata 
16, um acessdrio que permite a ligacdo de um 
CP-500 com ate" 16 outros micros CP-500 ou 
CP-300, para uso em centros de treinamento. 
A Prologica lancou tambem uma sdrie de aces- 
sdrios para seus computadores pessoais: som 
estdreo, que permite ligar os CPs 300/500 a 
amplificadores; placas de tela de alta resolu- 
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CP 300 e controlador de jogos 



cdo para os CPs 200/300/500- controlador de 
jogos; placa RS 232 para o CP-300 e monitor 
de video MV 300, fdsforo verde, tambem para 
o CP-300. Todos os lancamentos apresentados 
pela Prologica jd estdo sendo comer cializados. 



Um novo gabinete. de linhas mais bonitas 
e harmoniosas, em poliuretano. Teclado nu- 
mdrico reduzido e video profissional em fds- 
foro verde. Maior facilidade de expansdo em 
placas facilmente encaixdveis em slots pelo 
prdprio usudrio. Essas sdo algumas caracte- 
risticas do DGT-1000, o novo computador 
lancado pela Digitus, juntamente com uma in- 
terface para cores em alta resolucao. 

Com capacidade de memdria RAM de 16 
Kbytes ate' 64 K, pode suportar atd quatro 
unidades de disco flexivel de 5 1/4" dupla 
face /densidade simples de 185 Kbytes cada. 



Aceita ainda os seguintes perifdricos: interface 
paralela para impressora tipo Centronics-, sin- 
tetizador de voz-, interface serial RS232C-, e 
interface DGP/M, que torna o equipamento 
compativel com o CP/M. O video, de fdsforo 
verde ou branco, tern 16 linhas x 64 (ou 32) 
colunas e capacidade semi-grdfica de 128 x 48. 
Com a interface opcional para cores em alta 
resolucao, o sistema trabalha simultaneamen- 
te com dois videos: o monitor normal do mi- 
cro e um televisor a cores, onde se obterd uma 
resolucao de 256 x 192 pontos e 16 cores. 

DGT 1000 




ED-P 



Tradicional fabricante de minicomputado- 
res. a empresa gaucha Edisa lancou durante a 
Feira o microcomputador pessoal ED-P. Em 
sua configuracao bdsica, o equipamento vem 
com UCP Z80, 64 Kbytes de memdria RAM, 
monitor de fdsforo verde, dois drives para dis- 
quetes de 5 1/4" e unidade de teclado incluin- 



do mddulo nume'rico reduzido. O equipamen- 
to permite a incorporacdo do 8088, de 16 bits, 
que o tornard compativel com o micro pessoal 
da IBM, aldm da ligacdo com mdquinas de es- 
crever ele'trica IBM ou Olivetti eletrdnica. Em 
sua configuracao bdsica, o ED-P, que somente 
sera comercializado no primeiro trimestre de 
84. custard por volta de 600 ORTNs. 




A Brascom apresentou o seu novo micro- 
computador pessoal: Foxy. Sua UCP trabalha 
com microprocessador Z 80A e na configura- 
cao bdsica o Foxy vem com teclado, video de 
fdsforo verde, um drive para disquete de 

5 1/4" (aceita tambem disquetes de 8"), du- 
pla face e dupla densidade, duas portas se- 
rials e duas paralelas. Nesta versdo, seu preco 
fica por volta de CrS 1 milhdo e 800 mil. O 
sistema operacional do Foxy d o BR 1000, 
compativel com toda a linha de computado- 
res da Brascom. O Foxy pode ainda funcio- 
nar tambdm como terminal de video para o 
BR 1000M (Multiusudrio). 




Foxy 



8221 XC 

A Labo lancou um microcomputador to- 
talmente compativel com seu jd conhecido 
micro profissional 8221 , o 8221 Executivo. 
Com microprocessador Z80, capacidade de 
memdria de ate 128 K e utilizacdo de disque- 
tes de 5" - dois drives na configuracao bdsi- 
ca, em densidade dupla atingindo 160 K -,o 
8221 XC traballia com o sistema operacional 
SOL, e roda aplicativos em CP/M, podendo 
trabalhar com perife"ricos impressores de 80. 
100, 160 CPS ou impressoras tipo daisy wheel. 
Seu teclado - do tipo borracha - e indepen- 
dente do monitor e apresenta 13 teclas de 
funcoes especiais e quatro programdveis. O 
preco de lancamento previsto ficard entre 700 
e 800 ORTNs. 

Ale'm do 8221 XC, a empresa demonstrava 
em seu tradicional sistema 8221 um sistema 
para rede de hotdis, desenvolvido pela soft- 
ware-house gaucha Know How. 




Varix VC 50 d o nome do computador compativel com TRS Color 
lancado pela Engetecnica Varix, de Piracicaba, SP. Com UCP Motorola 
6809, o Varix VC 50 apresenta, em sua configuracao normal, memdria 
RAM de 64 K, mais 16 K ROM com o interpretador BASIC e outros 
16 K ROM em cartucho inter cambidvel. A empresa promete para breve 
uma expansdo de 128 K em memdria de bolha. O equipamento tern te- 
clado profissional com teclado nume'rico reduzido, incorpora interface 
RS232C e pode controlar ate" quatro unidades de disquete de 5 1/4". 
Gera nove cores e tern alta e baixa resolucao em grdficos (13 modos 
grdficos e dois semi-grdficos, alcancando mais de 49 mil pontos no vi- 
deo). Tern saidas de video composto para monitores e RF, interface 
standard para cassete em 1500 baud e quatro entradas analogico /digi- 
tals para aquisicdo de dados ou ligacdo de dois joysticks. O equipamen- 
to pode acessar vdrios bancos de memdria, o que permite utilizar 32 K 
como spooler para impressora. Trabalha com dois sistemas operacionais: 
VDOS, compativel com o TRS Color Computer, e VFLEX. Com este 
ultimo, terna-se possivel utilizar diversas linguagens, tais como Pascal, 
Forth e CBASIC, entre outras. A configuracao bdsica do equipamento, 
sem os disquetes, custa Cr$ 1,5 milhdo. As unidades de disco, por sua 
vez, tern os seguintes precos: CrS 800 mil a primeira e CrS 600 mil a 
segunda. 




VC50 




O Color 64, apresentado pela Novo Tempo, 4 um sistema compati- 
vel com o TRS Color Computer. Tern microprocessador 6809E, com 
clock de 0,8 MHz ou 1,8 MHz selecionado por software. Sua memdria 
ROM, com o interpretador COLOR BASIC, 4 de 16 Kbytes, enquanto 
a RAM para programas do usudrio 6 de 64 K. O teclado compreende 53 
teclas padrdo ASCII e o display de video pode ser atravds de TV comum 
ou monitor colorido, com nove cores e tres modalidades de apresenta- 
cdo: texto (16 linhas x 132 colunas), grafico de baixa resolucao (matriz 
64 x 192) e grafico de alta resolucao (matriz 256 x 192). O equipamen- 
to tern saida sonora para televisdo e conexdes para gravador cassete, im- 
pressora ou modem (interface serial RS232C) e para interface de disco 
flexivel (controlador de atd quatro unidades de 160 Kbytes cada). Na 
parte de software, a Novo Tempo, oferece, ale'm de linguagens, utilitd- 
rios e software de comunicacao, uma se'rie de aplicativos a nivel comer- 
cial, cientifico e domdstico. O preco do equipamento, em sua configu- 
racao bdsica, ddeCrS 800 mil. 



Color 64 
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Muitos lancamentos e 
poucas novidades 




III Feira International de In- 

^A 1 !! formftica apresentou diversos 
lancamentos de novos equipa- 
mentos da linha Apple. Vamos comecar 
falando do mais novo produto da Spec- 
trum, o Micro Engenho 2, compativel 
com o Apple II americano, mas monta- 
do em uma caixa semelhante £ do PC da 
IBM. Seu teclado, ao contrario do Micro 
Engenho 1 , que 6 ligado a caixa, esta co- 
nectado atrave's de urn cabo espiralado. 

Micro Engenho 2 ja" vem da f£brica 
com uma interface para um par de dri- 
ves, 64 Kb de mem6ria RAM e opca"o. 
por software, para video de 80 ou 40 
colunas para resolucao de texto. Ele 
possui um teclado alfanume'rico separa- 
do e caracteres emportugues, sinais para 
acentuaca"o grdfica e letras maiusculas e 
minusculas. Como no Apple He, o Mi- 
cro Engenho 2 possui um programa de 
auto-diagnostico interno para detectar 
algum eventual defeito no equipamento. 

A Unitron lancou, durante a Feira, 
diversos cartSes perife'ricos para o seu 
equipamento AP II. SSo dispositivos que 
chegam em boa hora e que tornarao o 
micro ainda mais versdtil. 

A atencffo do publico, no entanto, 
foi atraida atrav^s de uma camera de VT 
que tomava a imagem do visitante, 
transferia a mesma para a primeira pagi- 
na de alta resolucao do AP II e, em se- 
guida, atrave's de interface de dump para 
a impressora, a imagem era impressa em 
uma folha de papel. A mostra tambe'm 
contou com um Unitron ligado ao ban- 
co de dados do Serpro, o Projeto 
Aruanda. 

A Milmar tambe'm esteve presente 
apresentando em seu estande o Apple 



II Plus, copia fidelissima do original, in- 
terfaces para impressora paralela e acio- 
nador de discos. equipamento nap 
apresenta diferenca alguma com relacao 
ao micro americano. 

A Polymax, por sua vez, na"o mostrou 
nenhuma novidade especial para o seu 
micro, o Maxxi. Pordm, houve uma inte- 
ressante demonstracao de aplicacao do 
equipamento para pessoas paraptegicas. 
Tratava-se de um quarto onde diversas 
acQes eram executadas automaticamen- 
te, bastando que fossem selecionadas 
via teclado e comandadas com um sopro 
em um tubo de pldstico. 

A Victor apresentou o seu Elppa II 
Plus, outro novo micro da familia. Em 
seu estande foi mostrado um tablete gra- 
fico para desenhos no vfdeo (que, infe- 
lizmente, ainda na"o pode ser encontrado 
no nosso mercado) e diversos software 
de producSo national. 

No estande da Dismac esteve exposto 
o D-8100, outro micro compativel com 
o Apple. Nao foram feitas alteracoes e 
melhoramentos em relacfo ao modelo 
original. 

Em visita ao estande da Apple-tronic, 
pudemos conhecer mais um micro da li- 
nha Apple, o Apple-tronic y 6502. 
equipamento revela qualidade muito 
boa quanto k escolha dos componentes 
(principalmente com relacao ao teclado) 
e, segundo os exposdtores, este 6 exata- 
mente o motivo pelo qual seu preco € 
ligeiramente superior aos demais. Nao 
foram feitas alteracoes, sequer a tradu- 
ca"o das mensagens de erro do sistema, 
que permaneceram em ingles. 

Ji com relacao ao Manager I, da Mag- 
nex, o visitante pode constatar que tra- 



Rudolf Horner Junior 



ta-se de uma c6pia melhorada do mode- 
lo original. teclado, ale"m de ter nume- 
ros separados das letras no lado direito, 
permite caracteres em portugues, acen- 
tos e colchetes. Existem quatro estados 
para o teclado e o usuirio pode, inclusi- 
ve, gerar caracteres graTicos. Manager 
I possui internamente interfaces para pe- 
rife'ricos, o que em muitos outros equi- 
pamentos 6 optional. 

Outro detalhe com relacfo ao Mana- 
ger I 6 que seu teclado possui uma fileira 
de teclas as quais podem ser atribuidas 
funcOes especfficas, evidentemente as 
que sao usadas mais frequentemente. 

Os usuirios de equipamentos da linha 
Apple tiveram, durante a Feira, a opor- 
tunidade de ingressar no Clube do Apple, 
uma iniciativa apresentada no estande 
da Micro Data. Li tambe'm estiveram em 
demonstracSo dois Dactrom E, da Mi- 
cronix, totalmente compativeis com o 
Apple He. 

Com relacao ao software, o visitante 
pode conhecer alguns novos lancamen- 
tos de software houses nationais. Infe- 
lizmente, pore'm, ainda predominaram 
os programas ''traduzidos", que em mui- 
tos casos s3o inefitientes por representa- 
rem produtos elaborados para uma ou- 
tra cultura e uma outra legislacSo, di- 
ferentes danossa. 

E parece que os lojistas ainda prefe- 
rem vender os programas copiados, que 
na"o atentem totalmente £s necessidades 
do usuario, ao inv^s de difundir entre os 
consumidores software mais especificos, 
)£ produzidos pela industria national. Is- 
to nao 6 caracten'stica unica da linha 
Apple, mas comum a todas as outras li- 
nhas de micros produzidos no Brasil. 



Maxxi 

A novidade que a Polymax apresentou para o MAXXI foi em termos 
de aplicacao: um sistema de controle de processos composto por um 
MAXXI com disco, ligado a uma unidade digital de interfaceamento 
que permite a tetrapligicos (pessoas com os quatro membros compro- 
metidos) controlar - mediante um simples sopro num tubo pldstico 
- todo o ambient e em que se encontram. E possivel abrir e fechar por- 
tas e cortinas, operar receptor de TV, receber e fazer ligacoes telefoni- 
cas, entre outras coisas. Muito util em hospitals e residencias, o sistema 
pode, com pequenas alteracoes, ser empregado em automacdo de pro- 
cessos industrials, pesquisas cientificas e trabalhos de Laboratdrio, por 
exemplo. 

Quanto ao MAXXI, recebeu duas modificagoes de eletronica: na 
saida de RF, o que melhorou a resolucao de vfdeo, e na chave de 
RESET (agora para ressetar o sistema 6 preciso apertar CONTROL /RE- 
SET), medida bastante util para proteger os usudrios distraidos. 

Nos sistemas maiores, dois lancamentos: o 105 WP, que 4 uma ver- 
sdo mais economica do processador de texto 301 WP, utilizando mdqui- 
na de escrever eletronica Olivetti e disquetes de 5 1/4" e a versdo para 
processamento de dados POL Y 105 DP - Micro Terminal. 




APII 



Dos Apples nacionais, ele foi um dos primeiros, sendo bastante ven- 
dido. Seu teclado alfanumerico tern letras maiusculas, minusculas e 
acentos, e sao bastante amplas as possibilidades de expansdo ou interfa- 
ceamento do sistema (M oito slots livres, mais um para cassete e outro 
para /ogos). AUm disso, o APII, fabricado pela Unitron Eletronica, tern 
saida para monitor de video P 8c. B ou colorido (com definicdo graft- 
ca superior a 50 mil pontos) e 4 capaz, mediante a instalacdo da interfa- 
ce aaequada, de transferir grdficos diretamente do video para o papel. A 
expansdo da memdria pode ser feita pela adicdo de mddulos de 32 K, 
ate" 128 Kbytes e a Unitron of erece ainda as seguintes placas opcionais: 
PAL-M: cartdo Z80para CP/M; expansdo de video para 80 colunas; mo- 
dulador de RF: interface RS 232C: placa GPIB para controle de instru- 
mentacdo; controladores de disquetes e impressora paralela: ROM com 
BASIC Interger. A configuracdo minima, composta de UCP com 48 K, 
monitor de video e saida para cassete, custa cerca de Cr$ 1 milndo. 



A Milmar, empresa paulista e fabricante do 
Apple II Plus brasileiro, apresentava como 
principal atrativo o videogame Dactari, com 
muitos /ogos coloridos a prender a atencdo 
dos /ovens visitantes. 

Seu diretor, Mathias Alegrucci, ex-fabri- 
cante do Fenix, nos contou um pouco do his- 
tdrico da empresa. Apds sua saida da Dismac, 
lancou o Fenix, pela firma de mesmo nome. 
Desfeita a sociedade, jd com novos sdcios, foi 
lancado o TRS 80 modelo IV. 

Este projeto redimensionado e com outro 
nome, LNW - com 96 K RAM e CP/M -foi 
aproveitado pela nova empresa, a Milmar, jun- 
tamente com o Dactari e o Apple II Plus. 
Quanto a utilizacdo do nome Apple, o que se 
fez, segundo Alegrucci, foi "aproveitar um 



Elppa II Plus 

Compativel com o Apple II Plus, o Elppa II Plus tern UCP 6502, 48 
K ROM, expansiveis, e 12 K EPROM com interpretador e compilador 
BASIC-ELPPASOFT, sistema monitor e sistema AUTOSTART. O tecla- 
do tern 52 teclas ASCII e a capacidade de texto do equipamento 6 de 
40 colunas x 24 linhas. Em baixa resolucao, a matrix 4 ae 40x48, com 
16 cores, e em alta resolucao 6 possivel obter sels cores com matrix de 
280x192. O Elppa II Plus incorpora ainda alto-falante interno, saida de 
video composto para monitor, E/S para cassete, conector para controla- 
dores de /ogos e oito slots para expansdo. Ale"m deste micro, a Victor do 
Brasil fabrica ainda o Monitor III, de fdsforo verde, e os seguintes car- 
toes perife'ricos: acionador de disquetes de 5 1/4" (podem-se conectar 
ati seis unidades, com tres dessas placas): interface para PAL-M: expan- 
sdo de memdria de 16 K RAM: placa para 80 colunas: e cartdo CP/M. 




Microcraft PC 



Tradicional fabricante de cartoes perifericos para a linha Apple, a 
Microcraft acaba de entrar para o clube dos fabricantes de microcompu- 
tad ores com a apr'esentacdo, nesta Feira de Informdtica, do seu primeiro 
micro pessoal: o Microcraft-PC. Mantendo a tradicdo, o PC tern UCP 
6502 e 6 compativel com o Apple II, mas a sua arquitetufa inchii ainda 
um microprocessador Z80, o que Ihe permite executor todos os progra- 
mas baseados no sistema operacional CP/M-80, bem como operar com 
as linguagens COBOL, BASIC, Pascal, Fortran, Assembler e todas as 
outras suportadas pelo CP/M. 

Tern memdria RAM de 64 K, PC-SOFT-BASIC residente em 10 K 
ROM, mais 2 K de ROM com o programa monitor. Seu teclado alfanu- 
merico de 52 teclas pode gerar caracteres mahisculos e minusculos, de 
acentuacdo e controle, todos com repeticdo automdtica. Tern ainda um 
teclado numerico reduzido de0a9, ponto e ENTER (RETURN). O vi- 
deo opera nos modos texto (24 linhas x 40 colunas, matriz 5x 7, nor- 
mal, reverso e controle pleno do cursor), grafico de baixa resolucao 
(40x48 pontos ou 40x40 pontos com quatro linhas de texto: 16 cores) 
e grafico de alta resolucao (280x192 pontos ou 280x160 pontos com 
quatro linhas de texto: seis cores: imagem do video residente em 8 Kby- 
tes). Completam o equipamento as saidas de dudio, cassete, seis slots 
para perifkricos, conexdo para joystick e duas unidades de discos flexi- 
veis de 5 1 /4" tncorporadas no prdprio gabinete da UCP. 




*& few! 


1 ± * -i A.^ren 


- ^E*r* ' ; 


TWMT^ 



Apple II Plus 

descuido na drea de registro de patentes e 
Marketing". Procurando fazer "uma cdpia fiel 
do Apple americano", Alegrucci assumiu que 
a unica tropicalizacdo que se fez foi adaptor 



LNW 



o equipamento ao sistema PAL/M, para que 
pudesse ser facilmente ligado a qualquer TV 
colorido. No mais, o Apple II Plus brasileiro e 
totalmente igual ao americano. 
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Alfa 




D-8100 



Para o lazer, a Dismac langou o videogame 
VJ 9000, que vem com dois joysticks, e com- 
pativel com Atari e custa Cr$ 1 70 mil. 

Jd na Area das aplicacoes comerciais pesa- 
das, entraram em cena os micros da linha Alfa 
- modelos 3003 e 2064 MH - voltados para 
o processamento distribuido. Baseados na 
UCP 280 A, com memdria minima de 64 K 
RAM e controlados pelo sistema operacional- 
REDE (compativel com CP/M 2.2 e MP/MJ, 
esses equipamentos permitem formar cpnfigu- 
racoes de ate 16 UCPs operando nos modos. 
mestre e escravo e compartilhando perifiricos 
de grande capacidade, como impressoras linea- 
res e discos rigidos de ate 30 Mbytes. 




Apple-Tronic>J 6502 



Voltado para urn mercado de aplicagoes mais profissionais.o Apple- Tronic ji6 502 per mite, 
entre outras coisas, a interligagdo a Rede Cybernet, estando previsto para breve o lancamento 
de diver sos pacotes de software especifico para as areas cienttfica e industrial. Alim do monitor 
de fdsforo verde de 12" para 40 ou 80 colunas, a Apple-Tronic Computadores e Sistema fabrica 
e comercializa , entre outras, as seguintes interfaces: expansao de memdria de 16 a 128 Kbytes; 
UCP Z-80 (para CP/M); assincrona de comunicagoes nas velocidades de 50 a 19.200 bauds: sin- 
crona de comunicagoes; video de 80 colunas; controladora para ate" dois disquetes de 5 1/4"; 
controladora para ate" quatro disquetes de 8j conversora para sistema PAL-M. O prego-base pa- 
ra o computador com 48 K RAM i de 216 ORTNs. O sistema aceita as seguintes linguagens op- 
cionais: Pascal, Fortran, COBOL, Assembler e Logo. 



Outro Apple apresentado na Feira foi o 
DM II, compativel com a Apple II e fabricado 
vela D. M. Eletronica Ltda., de Sao Paulo. 
Tern teclado indutivo controlado por micro- 
processador, com letras maiiisculas e miniiscu- 
las, saida de video ou RF, entrada para 
joystick, saida de audio (bips, tons musicais e 
palavras selecionados por soft), tres sistemas 
grdficos coloridos (GR, HGR e HGR2) e me- 
mdria bdsica de 48 K expansivel. 

Aceita as seguintes placas de expansao, fa- 
bricadas pela DME: Z80 (para rodar CP/M); 
Integer BASIC: interface RS232C: expansao 
para outras linguagens: expansao de video 
para 80 colunas: phca programadora de 
EPROMj interface para impressora; interface 
para disco flexivel; modulador de RF; conver- 
sor de video para sistema PAL-M. O prego bd- 
sico da conpguragdo com 48 K RAM e 16 
ROM i de 20 ORTNs. 




"A primeira geragao do D-8000 acabou. 
Saimos do TRS-80 e passamos para o Apple, 
em fungao da demanda do mercado". Foi 
assim que Hilio Nascimento, Gerente de Pro- 
paganda e Promogoes da Dismac, explicou o 
langamento do D-8100, micro pessoal compa- 
tivel com o Apple II Plus E. Com urn prego de 
245 ORTNs para sua configuragdo bdsica 
(UCP com 48 K RAM e monitor de fdsforo 
verde), o D-8100 gera 15 cores, tern oito slots 
para cartoes de interface e adaptador para 
rodar CP/M. Mas ndo se preocupem os usud- 
rios dos antigos D-8000 /I /2: Helio Nascimen- 
to garante que a assistencia ticnica para esses 
produtos ndo serd afetada. 




DM II 



Micro Engenho 2 



O Micro Engenho 2 ndo veio para substi- 
tuir o Micro Engenho. langado em 1981 pela 
Spectrum. Trata-se, antes, de uma versdo apri- 
morada deste modelo e totalmente compati- 
vel com ele, bem como com o Apple II Plus e 
o Apple II E americanos. As diferengas entre 
os dois sistemas comegam pelo design: o Mi- 
cro Engenho 2 6 apresentado em tres volumes 
(UCP, teclado e video). O teclado, com 80 
teclas e auto-repetigdo, inclui caracteres em 
Portugues, letras maiiisculas e minusculas, 
com acentuagdo e cedilha acessados por soft- 
ware, alim de teclado numirico reduzido. A 
memdria RAM parte de 64 K e pode ser ex- 
pandidaate' 192 K. 

O sistema dispoe ainda de maior numero 
de slots livres (sete, contra quatro do modelo 
anterior) para instalar quaisquer interfaces 
projetadas para a linha Apple, aUm de um 
oitavo para receber o cartdo que o torna com- 
pativel com o Apple II e amplia o video para 
80 colunas. Outras placas disponiveis sdo as 
de interface serial ou paralela, cartdo Z80 pa- 
ra CP/M e modulador de RF. O equipamento 
apresenta, ainda, possibilidade de utilizagdo 
como terminal de videotexto. Em sua confi- 
guragdo bdsica, de UCP, teclado e video de 
fdsforo verde, o Micro Engenho 2 custa Cr$ 
3,1 milhoes. . 




A mais completa exposicao 
de microcomputadores do pals 



A solu^ao de compra do seu micro esta 
no CE1 - Centro Experimental de 
Informdtica da Servimec, a mais 
completa exposicao de micros das mats 
famosas marcas do pais. 
Aqui voce tern acesso aos uarios 
microcomputadores e pode eleger o 
que melhorihe concern, atraves de 
testes sob a orientaqao de experientes 
profissionals que curtem o as&unto 
tanto quanto uoci. 



£ para suas consultas e descobertas, o 
CE1 oferece uma Hvraria especiaRzada 
que inclui as mais importantes revistas 
nadonais e estrangeiras Alem de levar 
o micro e os softwares unicos ao seu 
caso, no CEI voce ainda tern mais 
estas uantagens: precose 
condiqoes especiais de 



cer 



jinanaamento, /easing ou aluguel. 
No CEI vod tern serviqos e 
atendimento completes. 

Venha ao CEI e demcubra u ■ 
admirdvel munda novo. 



Estacionamento proprio. 



Centra Experimental de Informatica 
da Servimec 

Rua Correa dos Santos, 34 - Tel: 222-151 1 
Telex: (01 1) 31.416 - SEPD ■ BR ■ Sao Paulo ■ SP 
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Compatibilidade total 

DACTROS E j jntgi de rudo pendAi 
CK ttut dor* p»of*ssocton?s <? *0 
- ftSCKJ nfrrKfna rami 

;• "t,ri.j:*i ^dade ern 1 Harttu.are <? 

SnjTULire rqm Apple II plus. 

Appte M E t- todos os h-us sinirJares 

e Qrnda com rodos os 

rmcrocO'nputadare<i que 

CP \t HO 

Pora urna 1 ■' neia 




DACTRON-E - A solugao economics modular 

DACTRONE cresce com voce e sua empresa. 

Com uma tecnologia baseada nas mats recentes inouacoes da informdtiea. 

possui estrutura para aceitar futures expansdes. 

Sua capacidade de memoria & de 64 KB. podendo ser expandida para 128 KB 

sem necessidade de placas complementary. 

DACTRONE possui uma faixa muito ampla de aplicacoes. 

tanto nas pequenas e medias empresas como para executives dinamicos, 

profissionais liberals e ainda em programas de aprendizado 

ou simplesmente diversoes sensacionais. 



XV 



INDUSTRIA E COMERCIO DE 
COMPUTADORES LTDA, 

Rua Cerqueira Cesar, 242 Santo Amaro Tels 246-0271 - 246-0239 
CEP 04750 - Sao Paulo SP 



Microprocessador 
280 A e 6502 

Memoria de 64KB, 
expansivei para 128KB 
sem placa adtcional 

Tela de 80 colunas 
Safda para TV P&B 

Saida para TV 

a cores padrfio PALM 

Saida para TV 

a cores padrao RGB 

Interface paraleta 

Interface serial 
(RS232Q 

4 Con juntos 

de caracteres selecionSveis 

por software 

Teclas 

numericas isoladas 

Conexdo com diskette de 8' 



LinhaNo-BreakNIFE: 



enema 



que nao acaba mais. 



A Nife produz e instate astern as 
completes de alimemacao 
inimcmipta de energia confiavel, 
isenia dc perturbacdcs, nas mais 
variadas configurates. 

Abrangendo capacidadcs de 2,5 a 
20QKVA, os sistemas Nife foram 
dcscnvotvidos com tecnologia baseada 
em meio seculo de tradicjio. 
PTOporrionam operacao simples e 
segura para as mais diversas 
aplicacoes: centres de computacao, 
conirote de processos industrials, 
tnstrumeniacao, centros cirurgicos, 
plataformas de expJoracao de 
petrdleo, sistemas de sinalizacao em 
ferrovias e metres, refinarias, etc 




UPSE - Sistema Extra-Compacto 



SAB NIFE W 

NIFE Brasil Sistemas Eletricos Ltda. 

Av. Pins do Rio, 4001 - liaquera - Td.: (Oil) 205.7033 

Telex: (Oil) 25564 • Cx. Postal 53-243 - End. Tdegr.: N1FECAD 

CEP 08200- Sao Paulo -SP 



No-Break Conventional 
(equipamento discrete) 

• Potencia: 30 a 20QKVA 

• Cada equipamento e montado em 
seu proprio gabinete. 

UPS * No-Break Compacto Inlegrado 

• Potencia: 2,5 a 30KVA 

• O reuficador, o inversor e a chave 
estatica sao montados em urn tinico 
gabinete, proporcionando ao 
sistema dimcnsdes reduzidas e alta 
flexibitidade de instaJacao. 

UPSE - Sistema Extra-Compaclu 

• Potencia: 2,5 KVA 

■ Especiaimente desenvolvido para 
aplicacoes em terminals bancarios 
e mini-computadores, devido as suas 
dimensoes extra-compaetas 
e facilidade de operacao, possuindo 
sinalizacao simples e eficknte. 




SOFTWARE 



Destaque para controle 
de processos e comunicagao 



PJl uem f°i 3 III Feira de Informa- 
I PQ J tica em busca de software ge- 
^14 nuinamente brasileiro, voltou 
decepcionado. O que se viu, na maioria 
das vezes, foi a exibi^ao daqueles mes- 
mos pacotes de sempre, desenvolvidos 
por grandes empresas americanas. 

Considerando-se as categorias de 
hardware nas quais os construtores se 
baseiam para atingir o mercado natio- 
nal, ou seja, os microcomputadores pes- 
soais tipo Apple e TRS-80 e os de me"dio 
porte, como Polymax 201 DPouProlo- 
gica 700, nao foi apresentada nenhuma 
novidade que indicasse tendencia ou al- 
guma perspectiva que justificasse o apa- 
recimento de uma industria de software 
comprovadamente brasileira. 

Tendo em vista, porem, que o soft- 
ware apresentado ao publico comprador 
nao foi especificado de uma forma con- 
creta pela maioria dos exibidores, as 
id&as apresentadas pela BBS (Biblioteca 
Brasileira de Software) devem surtir 
efeitos rapidamente. Baseando-se no fa- 
to de que a importacjfo de tecnologia de 
hardware para microcomputadores esta 
sendo grande em relacjlo a cria9ao de 
software condizente com as necessida- 
des do nosso mercado, e na quantidade 
variada de tipos de pacotes de software 
que existem nos acervos de imimeras 
software-houses do pais, a BBS criou 
um sistema que, ale'm de catalogar, orga- 
niza em categorias mais de 4 mil tipos 
de software e coloca-os a disposicjio do 
publico, emprestando-os mediante o pa- 
gamento de uma taxa de assinante — da 



mesma forma como as bibliotecas fazem 
com os seus livros. Isto nos parece uma 
idtia original e criativa, dentro de um 
mercado de software confuso e deso- 
rientado como o que existe atualmente. 

CONTROLE DE PROCESSOS 

Por exigir do projetista o desenvolvi- 
mento de um hardware e software espe- 
ci'ficos, de acordo com as particularida- 
des das situates a serem controladas, a 
area de controle de processos foi uma 
das poucas a apresentar trabalhos 
brasileiros autenticos. O software utili- 
zado pelo equipamento SDH-800 (sis- 
tema para aquisicjio sequential de da- 
dos), da Hicom, e o Emb ramie 2000 
(para auxilio a paraplegicos), da Embra- 
mic, constituiram-se em exemplos de 
um esfor90 louvavel das empresas do 
ramo de controle de processos. 

Quanto as inovagoes tecnologicas 
propostas e desenvolvidas no pais, des- 
tacaram-se os protocolos de comunica- 
cfo para interligar microcomputadores 
da linha Apple, entre si e com sistemas 
IBM, o que pode ser considerado como 
um excelente passo em direc5o a comu- 
nica?a"o de dados para equipamentos do 
tipo pessoal. 

Outra apresenta93o importante fo- 
ram as redes locais. apresentadas pela 
Scopus e outras empresas, como Poly- 
max e Dismac. Essas redes, destinadas 
a manipular dados a curta distancia (cer- 
ca de um a dois quilometros) sem a ne- 
cessidade de usar amplificadores ou re- 



petidores, tern como principal aplica- 
cao o escritorio eletronico, mas podem 
ser utilizadas com outras finalidades, 
como o controle de processos. 

A excessSo dessas experiencias, o que 
existe e' uma utilizagao desenfreada de 
programas estrangeiros, estimulada pela 
pr6pria compatibilidade do hardware 
national. Sem sair do Brasil, o usuario 
pode adquirir os fantdsticos cartuchos 
de videojogos ou, se for mais exigente, 
pode obter todo o software grafico do 
maravilhoso TRS Color Computer, ou, 
mesmo, interessantes aplicativos comer- 
ciais, sobretudo para microcomputado- 
res compati'veis com o IBM-PC e com o 
Apple. 

Como consequencia, se por um lado 
o usuario ganha, por outro perde a na- 
cSo como um todo (ao permanecer em 
situa9ao de dependencia tecnologica) e 
as empresas conscientes, capazes e com 
etica que , de fato , desen volvem produtos. 
A esse respeito, 6 bom frisar que tecno- 
logia se desenvolve, nao se compra,tan- 
to porque a tecnologia de primeira linha 
nao esta a venda, quanto porque conhe- 
cer tecnologia nao significa que se saiba 
desenvolve-la. 

Fica aqui o nosso respeito aquelas 
empresas que, a despeito da concorren- 
cia desleal, ainda investem em pesquisa 
e desenvolvimento de tecnologia. Nisso, 
as universidades tern um grande papel a 
desempenhar. 

Laboratdrio 
de Subsistemas Integraveis 



No lazer, nada mudou 



A exemplo da Feira de 1982, que se caracterizou por uma enor- 
me profusdo de jogos importados, invadindo ate" mesmo os grandes 
equipamentos, a deste ano pvaticamente nada acrescentou a esse pa- 
norama vazio. Os velhos e desgastados Space Invaders, Cosmic Figh- 
ter, Sabotage e Pac Man continuaram sendo a "grande atragao " da 
maioria dos estandes, na absohita falta de programas nacionais cria- 
tivos ou aplicativos dome'sticosuteis. 

As atencoes da industria permanecem fixadas no hardware, en- 
quanto que o usudrio de computadores pessoais assiste a uma mul- 
tiplicacdo de mdquinas que nao tern o que rodar. Sob este aspecto, 
o micro pessoal no Brasil continua sendo um brinquedo muito caro. 
Jd os videogames - que sao as verdadeiras mdquinas de jogos - se- 



guem a tendencia geral do setor de emulacdo de produtos estrangeiros 
consagrados: inUmeros ataris foram lancados na Feira, juntamente 
com os seus famosos jogos. 

A drea de software aplicativo domistico continua sendo um espa- 
go aberto, d espera de ocupantes. E quern possuir determinagao e 
boas iddias terd, certamente, grande chance de ser bem sucedido. 

Vale aqui destacar o trabalho da Microarte, em especial o ML O- 
GO, que se constitui numa opgdo bem interessante a nivelde usua- 
rio pessoal, uma vez que essa duma Hnguagem voltada para o ensino de 
programagdo para criangas. E conforme argumenta um representan- 
te da empresa, "se a crianga tern que brincar com computadores, 
entdo que brinque aprendendo". 
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HARDWARE 



• Fabricado pela Micronix, o Dactron E 
constitui-se num micro bastante versanti! e po- 
deroso. Em sua conflguragSb baslca, vem com 
os seguintes elementos: duas UCPs, 6502 e 
Z80, que o tornam compatfvel com o Apple 
1 1 , Apple II Plus e todos os computadores que 
utilizam o CP/M-80; memdria RAM de 64 
Kbytes, expansfvel ate" 128 K; tela de 24 ii- 
nhas por 40 ou 80 colunas; balxa resoluca"o de 
40 x 48 ou 80 x 48 pontos em 16 cores; alta 
resolugao de 280 x 192 pontos em oito co- 
res; sai'das de vi'deo para monitor, TV (P & B 
ou PAL-M) e RGB analdgico; safda cara lm- 
pressora paralela; interface RS232C pura im- 
pressora, modem e outros perlfaricos; incer- 
face para cassete; conexa"o para joystick; qua- 
tro conjuntos de caracteres selecionaveis por 
software; seis slots para expansa"o; teclado 
profissional com nume"rico reduzido, maius- 
culas e mlnusculas, controle de cursor e en- 
trada para teclado matricial. Entre as expan- 
soes e opcionais constam: disco Winchester de 
5 Mbytes, ate" quatro disquetes de 5 1/4" ou 
8", modem, sintetizador de voz, monitor de 
fdsforo verde, impressora serial de 80 e 132 
colunas, joystick, linguagens COBOL, BASIC, 
Pascal, Fortran, Assembler e outras suporta- 
das pelo CP/M da Microsoft, sistemas opera- 
cionais MDOS 3.3, CP/M 2.2 e CP/M 3.0. 

• Diversos perlfaricos para o seu microNaja, 
juntamente com um terminal de vfdeo inteli- 
gente, foram os langamentos da Kemitron na 
Feira de Informatica. 

Dentre eles destacaram-se os seguintes: pla- 
ca para CP/M com memdria RAM de 64 Kby- 
tes (Cr$ 170 mil); expansSo para vfdeo a co- 
res, com 240 matizes e alta resoluc3o grSfica 
(Cr$ 230 mil); interfaces de 4 MHz e 6 MHz 
de ciclo de clock para maior velocldede de 
processamento (Cr$ 35 mil, para 4 MHz e 
Cr$ 130 mil, para 6 MHz); controlador de 
disco flexi'vel de 8", capaz de aumentar a ca- 
pacidade de armazenamento exterr.o para ate" 
4 Mbytes (Cr$ 330 mil); sintetizador de voz 
(Cr$ 250 mil). O microcomputador Naja, 
com 48 Kbytes RAM, custa CrS 890 mil e o 
monitor de vfdeo de fdsforo vurde, CrS 205 
mil. Todos esses pregos sao acrescidos de 10% 
de IPI. A Kemitron langou tambam na Feira 
uma placa de porta paralela, que permite ligar 
ao micro discos rfgidos Winchester com pat f- 
veis com o TRS-80 mod. III. 

• A Digitel tambam mostrou o seu terminal 
de videotexto, em duas vers5es: VDTR (resi- 
dencial) e VDTI (institucional). Ambos os 
modelos podem ser usados com micros pes- 
soais atravas de um mddulo de expansa"o de- 
senvolvido pela empresa. A Digitel mostrou 
ainda modems, o equipamento STEP 1 para 
testes em circuitos de comunicacao de dados e 
o multiplexador estatfstico Statmux. 

• Um buffer para impressora, controlado 
por microprocessador, com interfaces parale- 
la ou serial e capacidade de 16 ou 64 Kbytes. 
£ o Bytesspool, fabricado pela Clariton In- 
dustrie e Comdrcio Ltda. 

• Boas novas para quern tern m^quina de es- 
crever eletrdnica Remtronic 2000. Acaba de 
ser lancada a interface Tekno L6gica, que per- 
mite ligar a m^quina a qualquer micro com 
safda paralela Centronics ou serial RS232C. 

• O Brasil ja fabrics robds em escala indus- 
trial. A princfpio sao pequenos e dedicados a 
trabalhos leves (podem movimentar 400 gra- 
mas com o braco totalmente estendido, au- 
mentando a sua capacidade a medida em que 
recolhem o braco), mas irmaos maiores vem 



por af, garante a Donner Industria Eletronica 
Ltda., do Rio de Janeiro, fabricante do Micro 
Robot Kalt 400. 

O equipamento destina-se a fazer servicos 
leves na industria ou em areas que possam 
comprometer a saude humana, como por 
exemplo: soldas, perfuragdes em circuitos Im- 
pressos, colocacao de ilhoses, embalagens far- 
maceutlcas, servlgos repetitivos que exigem 
precisSb, areas com vapores tdxicos, manuseio 
de material radioativo, laboratdrios qufmicos 
e areas de temperaturas anormais. O Kalt 400, 
que tern precisa"o de ± 2 dacimos de milfme- 
tro (ou ate" menos, de acordo com a especifi- 
cac§o do usuario) pode ainda auxiliardeficien- 
tes ffsicos ou, mesmo, mostrar-se um bom 
parceiro no jogo de xadrez. 

• Empresa criada pela Proldgica para absor- 
ver o seu setor de perlfaricos, a MicroPerif6- 
ricos apresentou na Feira a sua linha de im- 
pressoras e acionadores de discos. Na area de 
impressoras foram mostrados os modelos M 
720 (bidirecional de 200 cps, matriz 7x9, in- 
terface serial ou paralela Centronics, buffer 
de 3 K) e M 500 (100 cps, bidirecional, ma- 
triz 9 x 9 ou 6 x 12 para caracteres graficos, 
interface serial ou paralela e buffer de 2 K). A 
empresa tambam mostrou os acionadores de 
discos D 500 (para disquetes de 5 1/4", den- 
sldade dupla e face dupla ou simples, compa- 
tfvel com Apple e IBM) e W 500 (para Win- 
chester de 5 1/4", com capacidade de armaze- 
namento de 5 MB ou 10 MB). 

• Nesta Feira, a Micro lab langou a unidade 
de disco magnatico rfgido DM-525, com capa- 
cidade de 25 Mbytes (12,5 MB fixos + 12,5 
MB removiveis) e fez o pra-langamento das 
unidades de disco rfgido DM-660 (66 Mbytes), 
DM-9300 e da linha DF-1000 de discos Win- 
chester de 5 1/4", 8" e 14", com lancamento 
previsto para o segundo semestre de 1984. 

SOFTWARE 

• A Quartzil nao apresentou lancamentos 
nesta III Feira, limitando-se a expor o seu ja" 
conhecido QI-800, com CPU Z80 A, 64 K de 
memdria RAM, disquetes de 8" e possibilida- 
de de utilizagao de disco rfgido de ate - 29 
Mbytes. 

A Spress, contudo, empresa de desenvolvi- 
mento de software coligada, apresentou ao 
publico um sistema para concessionaries de 
vefculos e auto-pecas. Estruturado de forma 
modular, o sistema permite que os mddulos 
interajam,realimentando cada parte do siste- 
ma. Assim, o modulo b^sico de vendas emite 
nota fiscal e ativa a baixa do item no mddulo 
de controle do estoque. O mddulo de vendas 
a prazo emite faturas e duplicatas, ativando, a 
seguir, o contas a receber, e assim por diante, 
provendo ainda o sistema, para o Departamen- 
to de Marketing, uma mala direta aos clientes 
cadastrados. 

Segundo a empresa, aproximadamente 12 
concessionaries ja estao utilizando. este soft- 
ware, cujo prego 6 de 1100 ORTNs, ou 440 
ORTNs/mes, em sistema de leasing. 



• A Interface 6 uma pequena software-house 
de Petrdpolis, no Estado do Rio de Janeiro, 
que veio a III Feira expor seus pacotes priori- 
tariamente visando um maior contato com 
possfveis distribuidores interessados em seus 
produtos. Os sistemas oferecidos pela empresa 
sa"o o Saint Julien, pacote para controle admi- 
nistrative para hotais ou clfnicas hospitalares, 
por 283 ORTNs; o Onix, sistema de contas a 
pagar, por Cr$ 73 mil; o sistema de Estatfsti- 
ca Geral Haruspice, comercializado a Cr$ 280 




mil e o Paclab, para registro e controle de pa- 
cientes em laboratdrios de anaiises clfnicas, 
tambam orcado em 283 ORTNs 

• Voltada para a area de gerenciamento de 
empresas, a Computel expos seu aplicativo 
Business -Calc, nas versoes SOM (Cobra-305) e 
MPM (Edisa - 281), exigindo memdria mf- 
nima de 32 Kb. O software constitui-se de 
uma matriz eletronica de 254 linhas e 78 colu- 
nas programaveis pelo usuario e vem acompa- 
nhado de um manual completo explicando 
como opera-lo. 

• O destaque do estande da Monk Micro 
Informatica foi, sem duvida, o Data-Manager 
— sistema gerador de programas aplicativos, 
tambam chamado de SGBD - Sistema Geren- 
ciador de Banco de Dados — para as areas de: 
administracao geral, financeira, industrial e 
todas onde se fizer necessario o arquivamento, 
processamento e consulta de dados em grande 
quantidade e com rapidez. Estiveram tambam 
em exposigao varios outros produtos da em- 
presa, desde programas ligados a Engenharia 
ata aplicacoes domasticas, jogos e lazer. 

• A Multisoft, que adquiriu no ini'cio do ano 
a marca Microsoft - fitas de programas para 
equipamentos da linha Sinclair— apresentava 
como lancamentos programas para maquinas 
com 2K (Grand Prix e Gladiador) ; 1 6 K (O 
Pulo do Sapo) e tambam jogos para equipa- 
mentos implementados com placa de caracte- 
res programaveis. 

A empresa esta ativando a marca Multisoft 
para venda pelo reembolso, oferecendo aos 
compradores "certificades de garantia por 
tempo ilimitado". "Meu problema de garan- 
tia", diz Paulo Lauand, diretor da Multisoft, 
"sao os gravadores dos clientes. Se o gravador 
do cliente come a f ita, cobramos 25% do valor 
desta para trocar. Isto diminui o prejui'zo". 
Sobre a investida da empresa na area da co- 
mercializagao, Lauand garante: "No dia que o 
Brasil tiver uma rede de lojassuficientemente 
grande para abranger todo territdrio nacional, 
eu paro de vender direto". 

• Contabilidade e Estoque, rodando em 
equipamentos da linha Apple; no I-7000, da 
Itautec, e em alguns produtos compatfveis 
com o TRS 80, todos em configuracoes pro- 
fissionais, demonstravam um pouco da filoso- 
fia de atendimento da Servimec: nas palavras 
de Josa Gorgoll, supervisor de sistemas, "tes- 
tar o que existe, fazer um banco de software, 
apds uma triagem, e procurar oferecer ao 
cliente uma solucao integrada que realmente 
va de encontro a seus problemas". A empresa 
funciona em termos de Consultoria de compra 
e contratos de manutengao de hardware, soft- 
ware ou ambos. A Servimec trabalha ainda na 
comunicacao de equipamentos linha Apple 
com maquinas de grande porte, o 6800 da 
Burroughs. 

Atraves do CEI, o esforco de lancamento 
foi calcado numa"estrutura de cursos para exe- 
cutives, basicamente de 'operagao de aplicati- 



vos', como Dbase e Visicalc, e 'utilizacao de 
micros na solucao de problemas administrati- 
vos'. 

• A Micro's — Assessoria em Processamento 
de Dados apresentou seu software aplicativo 
para a area de Odontologia, nas versoes para 
fita cassete (capacidade para ata 120 clientes) 
e disquete (capacidade mfnima de 700 clien- 
tes). Os programas incluem os dados pessoais 
dos clientes, cadastro, emissao de cartas de 
cobranca, recibos de pagamento, etiquetas pa- 
ra mala direta etc. 

• Expondo no estande da Unitron, a Poten- 
cial Software demonstrou sua linha de softwa- 
re para a linha Apple: um curso de BASIC 
(Passo a Passo) e tres sistemas: Folha de Paga- 
mento (desenvolvido exclusivamente para a 
legislagao trabalhista brasileira), Mala Direta 
(podendo arquivar ata 250 cadastros por dis- 
quete) e Controle de Estoque (podendo arma- 
zenar ata 5.500 itens). 

• Criada recentemente em Sao Paulo, a Bi- 
blioteca de Software, um novo conceito de 
empresa na qual o associado passa a dispor de 
cerca de 4 mil programas das mais variadas 
areas e para os varios equipamentos nacionais, 
tambam esteve presente na Feira. Entre a vas- 
ta lista de programas a BBS conta com Treina- 
men to de Visicalc, Telofacts (teste de conhe- 
cimentos na area de exatas), Programa para o 
ensino de Basic nfveis I e II etc... 

LOJAS 

• O Brasil Trade Center participou da Feira 
de Informatica com muitas novidades bastan- 
te criativas e propostas uteis aos usuarios tan- 
to de microcomputadores quanto de videoga- 
mes e videocassetes. 

O grupo criou a Compvideo, comunidade 
de possuidores destes tipos de equipamentos 
e que visa facilitar o acesso dos sdcios as novas 
maquinas e ao software, aiam de propor-se a 



A OPINIAO DAS ENTIDADES 



SUCESU 



□ Na opIniSb de Renato Mazzola, da 
Sucesu Sao Paulo, a presenga maclga 
do publico na III Feira, com estacionamen- 
tos lotados e dnibus vindos do interior espe- 
cialmente para o evento, demonstra o in- 
teresse que a Informatica desperta hoje. Se- 
gundo ele, isto acontece gracas a orientacao 
que vem desde o primeiro Congresso, rea- 
lizado em 1968, e a, Feira paralela, entab 
com 300 m 2 . Quanto a crescente presenca 
do micro na vida brasileira, Mazzola classifi- 
ca como tendencia da apoca, ressalvando 
poram que o usuario brasileiro hoje ainda 
na"o esta preparado para os equipamentos de 
16 bits, "nem mesmo a industria esta", con- 
clui. 



APPD 



□ Para Luzia Portinari.da Assoc!aca"o dos 
Profissionais de Processamento de Da- 
dos de Sao Paulo, o tamanho da Feira, o nu- 
mero de pessoas presentes e tudo o que foi 
exposto demonstrou, mais uma vez, a neces- 
sidade da urgente regulamenta?3o da profis- 
sa"o, "ata mesmo para estabelecer fronteiras 
entre o profissional, o usuario e o amador". 
Segundo ela, a presenca marcante de micro- 
computadores entre os lancamentos a uma 



publicar um boletim informativo a circular 
entre os associados e oferecer descontos em 
cursos ministrados na loja. 

A empresa ira promover ainda pacotes de 
viagens — Infor Travel — aos principals cen- 
tros de Informatica norte-americanos em voos 
charters, portanto a menor custo. 

• A Computique apresentou em seu estande 
diversos equipamentos, em sua maioria rodan- 
do software profissional produzido por casas 
independentes. 

Dentre os pacotes mostrados, diversos des- 
tinavam-se a areas deatividades espeefficas. A 
loja revende produtos da software-house ca- 
rioca Compusystems, voltados para as areas 
madica, jurfdica, hoteleira, de restaurantes e 
lojas. Aiam disto, a Computique tambam re- 
vende placas para expansao de memdria, vf- 
deo em 80 colunas e implementacao de Z80 
para rodar CP/M, todas fabricadas pela empre- 
sa Logodata. 



• A Microshop, rede de lojas que ja possui 
estabelecimentos em Sao Paulo, Campinas e 
Recife, demonstrava em seu estande os equi- 
pamentos CP-500, da Proldgica; API I, da Uni- 
tron e D 8100, da Dismac, apresentando 
como atrativos jogos e, como novidade, um 
sistema de controle financeiro desenvolvido 
pela Libra Informatica, empresa de desenvol- 
vimento de software coligada. 



• A loja Imares, de Sao Paulo, apresentava 
diversas novidades desenvolvidas pela prdpria 
loja e por "um pessoal llgado a loja", segundo 
Valmir Pereira, Diretor Comercial. 

Dentre elas, MS registrou: vfdeo colorido 
para o CP-200; software de comunicacao para 
S-700 (Proldgica) e API I (Unitron), ao preco 
de 150 ORTNs; sistemas madicos para maqui- 
nas com CP/M (desenvolvido pela Matrix e de 
exclusividade de venda Imaras); CP-500 com 
alta resolucao (placa da PSI, 100 ORTNs e 
venda exclusiva Imaras); CP-500 com CP/M 



(iricoporacao feita por Cr$ 256 mil); maqui- 
nas de escrever Olivetti funcionando como 
impressora (com interfaces serial e paralela, 
900 ORTNs) e o circuito eletrdnico Ivanita 
que, incorporado a maioria dos equipamentos 
da linha Apple, gera caracteres da Lfngua Por- 
tuguesa na tela e safda impressa. 

• A Filcres apresentou tambam muitas novi- 
dades para a linha de equipamentos da Prold- 
gica. A utilizacao do CP-200 no controle de 
maquinas fez bastante sucesso e, para o 
CP-500, estavam em demonstracao speed up 
(alta velocidade, ata 5,3 MHz) e drive para 
dupla face, ambos sem previsSo de preco, 
aiam de placa de alta resoluca"o, fabricada pela 
STI de Sao Paulo, ao preco de Cr$ 614 mil. 



• A Compushop, loja especializada na venda 
de micros, fechou dois contratos de franquia, 
para o Rio de Janeiro e Londrina, e seu dire- 
tor Roberto Riwczes colocou como um dos 
principais objetivos para a presenca da loja no 
evento, aiam de marcar presenca, "o contato 
com eventuai.s interessados para sistema de 
franquia em outros Estados do Brasil". 

Outra empresa do grupo, a Compusoft, 
tern prevista, para o ano de 84, uma intensifi- 
cacao no desenvolvimento de software. Ata la, 
a Compushop procura construir em torno de 
si uma imagem bastante se"r!a e profissional, 
com relacao ao software: "Nao damos progra- 
mas de brindes e nao vendemos software 
estrangeiro ou chupado". 

• A Chip Shop, uma loja de microcompu- 
tadores de Sao Paulo, lancou em seu estande o 
cartao CP/M para o CP-500. A implantacao da 
placa e do software serao feitos na propria 
Chip Shop e o preco e de Cr$ 1 50 mil. Outras 
novidades apresentadas pela loja foram a co- 
municacSo entre um Apple e um IBM (emula- 
cao 2789 e 3270) e a comunicacao entre dois 
Apples. 



tendencia natural por questa"o de demanda 
e de preco, devendo, no entanto, haver em 
breve uma seleca"o do prdprio mercado. Para 
Luzia, o mercado ja esta preparado para re- 
ceber os micros de 16 bits, apesar das possi- 
bllldades dos equipamentos de 8 bits ainda 
na"o terem sido totalmente exploradas. 
"Mas tambam na"o podemos flcar esperando 
que isto aconteca -para enta"o evoluir", aflr- 
ma. 

ABICOMP 

□ Segundo o Presidente da Associacao 
das Industrias de Computadores, Edson 
Fregni, a Feira deste ano mostrou uma in- 
dustria nacional mais amadurecida tecnolo- 
gicamente, em termos de acabamento de 
produto e mesmo em termos de atendimen- 
to ao publico. Mas, um aspecto negativo 
apontado por Edson Fregni foi a pirataria, 
ou seja, equipamentos trazidos do exterior 
e simplesmente copiados. Para Fregni, este 
tipo de colsa causa dois maleffcios diretos: 
primeiro, rouba o mercado das empresas que 
estao investlndo em tecnologia, e segundo 
forma uma ma imagem da industria nacio- 
nal, fazendo com que cada vez menos em- 
presas apdiem a reserva de mercado. Na opi- 
niao do Presidente da Abicomp, a tendencia 
a que o prdprio usuario comece a selecionar 
e deixar de comprar os equipamentos pi- 
rateados, tendendo para as maquinas desen- 
volvidas aqui, para as quais ele tern maior 
suporte. "Aiam disso", completa Fregni, "as 
empresas que estao sob o manto da reserva 



de mercado tern obrigacao de desenvolver 
tecnologia e na"o buscar qualquer outra for- 
ma rentavel". 

ASSESPRO 

□ "O publico que compareceu ao Infor- 
matica 83 a procura de software certa- 
mente se sentiu agredldo com a quantidade 
de produtos pirateados e a ausencia de apli- 
cativos novos e sarios. Isso foi um dado 
multo negativo, mas, em contrapartlda, pro- 
vocou uma mobilizacSo de toda a classe, e 
acredito que do prdprio governo, para a ne- 
cessidade urgente de uma polftica de regula- 
mentacao da produc3o de software no 
pafs." 

A declaracao a do Presidente da Asses- 
pro, Josa Maria Sobrinho, para quem a Feira 
demonstrou, mais uma vez, o alto grau de 
desenvolvimento da Industria de equipamen- 
tos no pafs. "Tivemos muitos lancamentos 
na area de hardware. Inclusive os micros de 
16 bits, o que acredito ser um primeiro pas- 
so para o amadurecimento na prcducao des- 
ses equipamentos no Brasil". 

Sobrinho destacou tambam a ausencia 
dos pequenos fabricantes de software, 
"aqueles que n§o tem condigoes de montar 
um estande na Feira para apresentar seus 
produtos, mas que sa"o os que mais produ- 
zem serlamente, sem pirataria". Pensando 
nisso, ja faz parte dos pianos da Assespro 
montar um grande estande no prdximo 
evento parareunir os pequenos fabricantes 
num sistema de divisao de custos. 
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PERIFERICOS 



Abre-se o leque de opcoes 



Como nao podia deixar de ser, muitos perifericos foram apresenta- 
dos nesta Feira, oferecendo ao usuario uma serie de opcoes atra- 
tivas. 

Diversos fabricantes apresentaram novas impressoras, muitas delas 
com capacidade de impressao grafica. Nao podemos deixar de mencio- 
nar as tradicionais Elebra, Elgin e Globus. Embora seja grande a quanti- 
dade de novos produtos, todos eles possuem uma semelhanca funcional 
muito grande, no que o usuario sai ganhando, uma vez que o campo de 
opcoes permite uma selecao mais rigorosa do que se deseja. 

Fizeram-se presentes as impressoras do tipo margarida e esfera (IBM 
- SELETRIC), muito adequadas paia impressao de textos de alta quali- 
dade. 

Como novidade, podemos citar a graficadora (plotter) da Prologica, 
embora algumas universidades tenham ou estejam desenvolvendo gra- 
ficadores (alguns ja em fase de industrializacao). t 

Nos novos terminais de video alfanumericos, graficos e semigrafi- 
cos, observou-se a preocupac5o dos fabricantes quanto a aspectos er- 
gonometricos, e em prover maior inteligencia local. Observaram-se diver- 
sos terminais nacionais emulando o IBM PC, como por exemplo os da 
Scopus (com algumas caracten'sticas melhores, inclusive). A Scopus 
tambe'm apresentou seu terminal grafico co!orido,baseado nopoderoso 
controlador grafico 7220 (NEC-INTEL). Alguns fabricantes ja apresen- 



tam terminais com monitores coloridos de alta resolucao (Brascom, 
Prologica), devendo esta experiencia se acentuar tal como no exterior. 
Terminais com facilidades para processamento de texto tambe'm foram 
apresentados, ampliando as opgoes do mercado. 

Diversas empresas ja anunciaram sintetizadores de voz, embora to- 
dos eles possuam um inconfundivel sotaque estrangeiro. Esperamos que 
no futuro tenhamos sintetizadores com algum genuino sotaque brasi- 
leiro. Esses dispositivos seguramente colocarao em outra escala o pro- 
blema da comuriicacao homem-maquina. 

Nao se pode deixar de citar a mesa digitalizadora apresentada pela 
Universidade Federal do Rio Grande do Sul, inegavelmente de grande 
importancia na area da computacao grafica. 

Embora na quase totalidade todos os projetos citados sejam genui- 
namente nacionais, notamos que existe um grande vazio no aspecto ele- 
tro-mecanico,' area na qual dependemos quase totalmente do exterior. 
Dizemos quase porque o panorama, necessariamente, ira mudar com os 
motores de passo desenvolvidos pela Escola de Engenharia de Sao Car- 
los (USP), justificando um maior incentivo ao desenvolvimento de 
mecanica fina no pais. 



Laboratdrio de Subsistemas Integrdveis 



DISCOS MA GNETICOS 

Cresce a familia de 5 1/4" flexiveis 



Quern esperava por muitas novidades na 
area de discos magneticos nesta III Fei- 
ra de Informatica por certo ficou um 
pduco decepcionado. O que acontece e' que o 
desenvolvimento dos discos, flexiveis ou rigi- 
dos, ainda e muito restrito devido as dificulda- 
des de produ$ao, custo ferramental, equi- 
pamentos e dependencia de importac£o de pe- 
cas criticas como cabecas, discos, atuadores e 
motores. Esses problemas de fabricagao foram 
inclusive comprovados pela desistencia de al- 
guns produtos anunciados na Feira do ano 
passado. 

NOS FLEXIVEIS, NOVOS MODELOS 

No mercado de floppy disks, proprios para 
microcomputadores, temos duas famflias: a de 
5 1/4" e a de 8". As maiores novidades con- 
centraram-se na familia de 5 1/4", que basi- 
camente e utilizada em micros pessoais. Veja 
na figura 1 os modelos e caracten'sticas dos 



discos flexiveis de 5 1/4" que existem no mer- 
cado. 

A Elebra e Multidigit lancaram o mini 
floppy de 1 Mb, com densidade de 96 tpi. O 
modelo DF 01 1 1 , da Multidigit, no entanto, e' 
de meia altura (slim), isto e, duas unidades po- 
dem ser montadas no lugar de um minifloppy 
normal. 

A Flexidisk e a Elebra tambe'm apresenta- 
ram ao publico mini floppies compativeis com 
microcomputadores pessoais tipo Apple e 
TRS-80. Essas unidades ja vem acondiciona- 
das numa caixa de metal com os acessorios ne- 
cessarios para Iigacao direta aos micros, nio 
exigindo adaptacoes de hardware ou software. 

Os modelos 9408B/C da Elebra saoequipa- 
dos com solenoide de HD LOAD, que evita 
um maior desgaste no disquete. 

Sendo um mercado basicamente dirigido 
aos microcomputadores, novas empresas, co- 
mo a Microperifericos, tern investido no de- 



Fabricante 


ELEBRA 


FLEXIDISK 


MICROPERIFERICOS 


MULTIDIGIT 


Modelo 


9<)08A 


9<<08B 


9W8C 


BR 500 


BR 550 


D 500 


DF 01 II 


Tamanho 


Normal 


Normal 


Normal 


Normal 


Normal 


Normal 


Slim 


Face (S ou 0) 


S 


D 


D 


S 





S/D 


D 


Capacidade Maxima 


250 Kb 


500 Kb 


1 Mb 


250 Kb 


500 Kb 


250/500 Kb 


1 Mb 


Tempo Aces so Medio 


80 ms 


80 ms 


132 ms 


275 ms* 


275 ms* 


• 


• 


Tempo Acomodacao 


15 ms 


15 ms 


15 ms 


» 


* 


• 


• 


Tempo HD LOAD 


- 


50 ms** 


50 ms** 


- 


- 


- 


- 


Densidade Radial 


1.8 TPI 


48 TPI 


36 TPI 


1.8 TPI 


1.8 TPI 


1.8 TPI 


96 TPI 


Taxa Trans f. (MFM) 


250 Kb/s 


250 Kb/s 


250 Kb/s 


250 Kb/s 


250 Kb/s 


250 Kb/s 


250 Kb/s 


Lancamento 


Rio 


Nio 


Sim 


Nio 


Nio 


Sim 


Sim 


OBS. : *lnclui'do te 
••equipados com 
• dados nao for 


npo de acorn 
solenoide 
nee i dos 


oda^ao 
de HD L0A 


D 











Figura 1 - Discos flexiveis de 5 1/4" 



senvolvimento de floppies de 5 1/4". Este 
segmento, em breve, devera atingir 2 Mb de 
capacidade. 

A familia de disquetes de 8" e largamente 
utilizada em microcomputadores profissionais, 
principalmente devido ao padrao de formata- 
c5o (IBM). Nesse segmento as empresas na- 
cionais apenas aperfeicoaram os produtos ja 
existentes, uma vez que produtos de 2 e 5 Mb 
anunciados nos EUA ainda apresen tarn. alguns 
problemas tecnicos, principalmente na quali- 
dade do disquete. Veja na figura 2 os modelos 
e caracten'sticas dos disquetes de 8" que exis- 
tem no mercado. 

O BR 860, da Flexidisk, foi o unico lan- 
camento nessa famflia. Por ser do tipo slim, 
duas unidades podem ser montadas no espaijo 
de uma unidade normal de 8". O motor de 
acionamento e do tipo DC sem escovas, eli- 
minando a necessidade de alimentacjio AC. O 
BR 860, como a maioria dos mini floppies, 
nao possui solenoide de HD LOAD, necessi- 
tando ativar o motor DC de acionamento, jun- 
to com a selecao (DS) da unidade para evitar 
o desgaste do disquete. O tempo de partida do 
motor de acionamento atrasa (em aproxima- 
damente 100 ms) o ini'cio da transmissao de 
dados em relacao as unidades tradicionais. 

NOS RIGIDOS, POUCO AVANCO 

Esse segmento atende ao mercado nacio- 
nal de microcomputadores (pessoais, profis- 
sionais e mesmo supermicros) e minicompu- 
tadores (inclusive superminis), motivo pelo 
qual existem grandes diferencas nos produtos 
quanto a tecnologia, custo, performance, ca- 
pacidade, tamanho e operacionalidade. 

Os discos n'gidos nacionais se dividem ba- 
sicamente em dois grupos:a familia de 5 1/4", 
representada por unidades de tecnologia Win- 
chester, e a familia de 14", de tecnologia de 
vanguarda, proprias para minicomputadores 
pela media e alta performance e capacidade, e 
precos e custos de manutengao elevados. 

Todos os discos n'gidos de 5 1/4" sab uuli- 
zados em microcomputadores sendo portanto 
abordados aqui, em detrimento dos de 14". 



Nesse segmento de 5 1 /4" existem dois grupos: 
de atuador tipo stepper e de atuador tipo voi- 
ce coil. Veja na figura 3 os modelos e caracte- 
n'sticas dos discos n'gidos de 5 1/4" que exis- 
tem no mercado. 

A Flexidisk lancou o BR 419 (15 Mb nao 
formatador), que permitira a ampliacao de sis- 
temas ja equipados com unidades de 5 a 10 
Mb. A Multidigit devera tambem fornecer em 
breve um produto equivalente, de 15 Mb. A 
tendencia dessa familia, no entanto, e chegar 
a 20 Mb, como o ST 425.americano,que ja te- 
ve melhorias no desempenho utilizando o me- 
todo de seeks (steps) bufferizados. Ambos fa- 
bricantes oferecem controladores para suas 
unidades com interface de 8 bits, que permi- 
tem a Iigacao em cadeia com mini floppies. 

A Elebra anunciou o lancamento de seu 
Winchester com atuador voice coil, sistema de 
servo e capacidade de ate 36 Mb. Essa versao 
devera atender aos microcomputadores que 
necessitam de maior capacidade e desempe- 
nho, hoje servidos apenas pelas can'ssimas uni- 
dades de 5 + 5 Mb e CMD-32 Mb. 



Figura 2 - 

Discos 

flexiveis 

de8" 












Fabricante 


ELEBRA 


FLEXIDISK 


Modelo 
Tamanho 
Face IS ou D] 


9404 

Normal 

5 


9<i06 

Normal 

-D 


BR 800 

Normal 

S 


BR 850 

Normal 
D 


BR 860 

Slim 
D 




Capacidade Maxima 


800 Kb 


1,6 Mb 


800 Kb 


1,6 Mb 


1,6 Mb 




Tempo Acesso Medio 


268 ms* 


91 ms* 


210 ms* 


91 ms* 


91 ms* 




Tempo Acomodacio 


15 ms 


15 ms 


8 ms - 


15 ms 


15 ms 




Tempo HD LOAD 


60 ms 


35 ms 


35 ms 


50 ms 


- 




Densidade Radial 


1.8 TPI 


<i8 TPI 


1.8 TPI 


1.8 TPI 


1*8 TPI 




Taxa Trans f. (MFM) 


500 Kb/s 


500 Kb/s 


500 Kb/s 


500 Kb/s 


500 Kb/s 




Lancamento 


Nio 


Nao 


Nio 


Nio 


Sim 


OBS.: * Inclufdo o tempo de acomodacio 





O mercado nacional nao vive ainda a "ex- 
plosao" dos Winchester devido aos elevados 
custos de investimentos e dificuldades de pro- 
du$ao local. Da mesma forma, a restricao ope- 
racional pela indefinicjio e forma de back-up 
para unidades de maior capacidade tambe'm 
cerceiam o avango rapido desse segmento do 



mercado. A unidade de fita cartucho BKP-20, 
lanc^da pela Conpart, ja devera em breve pos- 
sibilitar copias de Winchester ate aproximada- 
mente 50 Mb, e espera-se que futuros desen- 
volvimentos de outras unidades de back-up 
aparec^m no mercado nacional. 

Ulrich Kuhn 



Fabr i cante 


FLEXIDISK 


MICROPERIFERICOS 




MULTIDIGIT 




ELEBRA 


Mode 1 o 


BR <406/l|l2 


BR <4l9 


W500 


wo 0511 


DW 0512 


DW 1011 


W500 


Capacidade (nio format.) 


6,38/12,76 H 


19,14 Mb 


6,38/12,76 Mb 


6,38 Mb 


6.38 Mb 


12.76 Mb 


21 .77/36.29 Mb 


Atuador 


Stepper 


Stepper 


Stepper 


Stepper 


Stepper 


Stepper 


Rotary Voce Col 1 


N? de Faces 


1. 


6 


• 


h 


2 


It 


3+IServo/5 + IServo 


Tempo Acesso Medio 


70 ms 


70 ms 


• 


150 ms 


70 ms 


70 ms 


1.5 ms 


Tempo Acomodacao 


15 ms 


15 ms 


• 


20 ms 


15 ms 


15 ms 


- 


Tempo Medio Latencia 


8.3 ms 


8,3 ms 


8,3 ms 


8,3 ms 


8.3 ms 


8,3 ms 


8,3 ms 


Densidade Radial 


255/3^5 TPI 


3^5 TPI 


• 


255 TPI 


31.5 TPI 


31.5 TPI 


800 TPI 


Taxa Trans ferencia 


5 Mbits/s 


5 Mbits/s 


5 Mbits/s 


5 Hbits/s 


5 Mb/s 


5 Mb/s 


5 Mb/s 


Interface 


ST 1(00/500 


ST 1.00/500 


ST 1.00/500 


ST 1.00/500 


ST 1.00/500 


ST 1.00/500 


ST 1.00/500 


Lancamento 


Nao 


Sim 


Sim 


Nio 


Nao 


Nao 


Sim 


OBS.: • dados nio forneci 


dos 















Figura 3 
Discos 
rigidos 
de51/4" 





Al&m de mostrar novidades nas suas im- 
pressoras matriciais, a Elebra Informitica fez 
o pri-lancamento de diversos produtos a se- 
rem comercializados no decorrer de 1 984. 

A Monica (100 cps, 80 colunas), por 
exemplo, pode agora ser reconfigurada de di- 
versas maneiras pela adicdo de mddulos de cir- 
cuito com firmwares especificos. A Alice (200 
cps, 136 colunas) foi mostrada com interfaces 
serial ou paralela e controle eletronico por 
microprocessador. A Emilia (100 cps, 132 co- 
lunas e capacidade grdfica) tambe'm esteve 
presente. 

Na Area de discos flexiveis de 5 1 /4"desta- 
caram-se as unidades 9408, com cabeca dupla 
e capacidade de 500 Kbytes, e os Hordrios, 
acionadores Id prontos para utilizacdo pelo 
usudrio final nos micros das linhas Apple e 
TRS-80. 

Os precos aproximados desses produtos 
sdo: Monica (Cr$ 960 mil), Emilia (Cr$ 2,8 
milhoes), Alice (Cr$ 4 milhoes), Hordcio para 
Apple (Cr$ 630 mil) e Hordcio para TRS-80 
(CrS 730 mil). 



BR 406 e BR 860 

A Flexidisk mostrou a sua linha de aciona- 
dores de discos flexiveis e rigidos e de contro- 
ladores. Os lancamentos ficaram por conta 
dos acionadores BR 860 (para disquetes de 8" 
dupla face /densidade simples, com capacidade 
de 800 K a 1600 K, unidade compacta tipo 
slim) e BR 406 (para Winchesters de 5 1/4" 
com 5 MB formatado ou 6 MB nao formata- 
do). 

Os outros acionadores mostrados foram os 
seguintes: para disquetes de 8" - BR 800 
(400 a 800 Kbytes, face simples /densidade 
simples ou dupla); BR 850 (800 a 1600 Kby- 
tes, dupla face /densidade simples); para dis- 
quetes de 5 1/4" - BR 500 L (125 a 250 
Kbytes face e densidade simples); BR 550 
(250 a 500 K, dupla face, densidade simples); 
BR 390 (compattvel com Apple, face e densi- 
dade simples); BR 392 (versao do BR 390, 
com caixa e cabo, pronto para utilizacdo pelo 
usudrio final); Winchesters de 5 1/4 * - BR 
412 (10 Mbytes formatado ou 12 Mbytes nao 
formatado); BR 419 (15 Mbytes formatado 
ou 19 Mbytes nao formatado). 

A empresa mostrou ainda o controlador 
formatador BR 41 (para disquetes de 5 1/4" 
ou 8") e o controlador acionador BR 1410 
(para discos rigidos Winchester). 



MT-140 



A Elgin Lady e os modelos MT-1401 e 
MT-140L foram as impressoras que a Elgin 
Eletronica levou para a Feira de Informatica. 

Impressora matricial de 1 00 CPS e 132 co- 
lunas a 10 cpi, matriz de pontos 9 x 7, a 
Elgin Lady permite programar, atravis de uma 
unica tecla, 18 funcoes para definicdo do for- 
mato de impressao (11 d essas funcoes podem 
tambe'm ser programadas via computador). 
Tern caracteres semi-grdficos e funcoes grdfi- 
cas com enderecamento a nivel de agulhas e 
possui interfaces intercambidveis a nivel de 
operador que possibilitam a sua conexdo d 
maioria dos sistemas disponiyeis no mercado. 
Seu prego i de Cr$ 1,9 milhao. 

A MT-1401 (Cr$ 2,3 milhoes) & tambe'm 
matricial, 160 CPS, 132 colunas, matriz 9x7. 
Permite ativar 30 funcoes para definicdo de 
formato de impressao (13 das quais por com- 
putador) e dispoe de uma serie de conjuntos 
de caracteres. A MT-140L reune todas as ca- 
racteristicas da MT-1401, podendo ainda pro- 
cessor textos.com matriz 18x40 e um con jun- 
to de 128 caracteres de Lingua Portuguesa. O 
seu prego e de CrS 3 milhoes. 
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HARDWARE 



Super micros de 16 bits, 
as grandes vedetes 




Jbservamos que, embora o vo- 
lume de produtos apresentados 
nesta Feira de Informa'tica te- 
nha si do consideravelmente elevado, 
boa parte destes limitaram-se a copiar 
produtos estrangeiros, pouco contri- 
buindo para o avan?o tecnol6gico do 
pais. 

Diversas empresas apresentaram mi- 
crocomputadores compativeis com o 
Apple, utilizando todo o vasto reperto- 
rio de programas disponiveis para este 
micro computador. Foram apresentadas 
placas opcionais com UCP Z-80 e UCP 
8088 que permitem, respectivamente, 
instalacfo dos sistemas operacionais CP/ 
M 80 e CP/M 86, permitindo compatibi- 
lidade com outros micro computadores 
que utilizem estes sistemas operacionais. 

Alguns micro computadores compati- 
veis com o conhecido IBM-PC (UCP 
8088) se fizeram presentes na Feira de 
Informa'tica, sendo muito bem aceitos 
pelos visitantes. Estes micro computado- 
res devem repetir aqui no Brasil o gran- 
de sucesso alcanfado no exterior. Des- 
contando o monitor de alta resolucao 



do microcomputador matriz, estas ver- 
soes nacionais pouco ou nada, aparente- 
mente, ficam a dever. Nexus 1600, da 
Scopus, utiliza um sistema operacional 
desenvolvido pela empresa, sendo com- 
pativel com o MS-DOS. O EGO, micro- 
computador da Softec, pode operar com 
diversos sistemas operacionais, incluindo 
CP/M-86 e MS DOS, o mesmo ocorren- 
do com o PC 2001 da Microtec. 

Sistemas multiusudrios e multiprogra- 
maveis, assim como redes de microcom- 
putadores, foram oferecidos por diversas 
empresas, destacando-se a rede local da 
Scopus, rede Brascom e CETUS - dentre 
outras. 

Pelo menos duas empresas ja" anuncia- 
ram micro computadores de 16 bits ba- 
seados na UCP 68000 com sistema ope- 
racional tipo UNDC. Estes verdadeiros 
super-microcomputadores deverao, em 
breve, oferecer ao usuario uma nova di- 
mensao de possibilidades e aplicac5es. A 
Edisa espera a liberacao da SEI para a 
product) de micro computadores basea- 
dos no 68000. A Brascom oferece uma 
placa de UCP Z-80-68000 (dual proces- 



sor) que pode ser utilizada no sistema 
BR1000 com pelo menos 256 bytes de 
memoria. Embora a capacidade da UCP 
68000, em relacSb a UCP 8088 ou 
8086, seja indiscutivelmente maior, pro- 
vavelmente o software aplicativo colo- 
cado a disposicSo dos microcomputado- 
res da linha PC-IBM deve decidir o mer- 
cado no proximo ano. 

Com relacao as universidades, desta- 
camos o controle numdrico de tomos 
para ensino desenvolvido pela Universi- 
dade Federal do Espirito Santo; o siste- 
ma de processamento distribuido para 
controle e supervisSb de trens desenvol- 
vido pela Fundacao para Desenvolvi- 
mento Tecnol6gico (EPUSP); terminals 
grdficos e sistemas de desenvolvimento 
universal para micro pro cessadores de- 
senvolvidos pelo Laborat6rio de Subsis- 
temas Integraveis (EPUSP) e os termi- 
nals graficos do NCE (UFRJ), dentre 
outros. 



Laboratdrio de 
Subsistemas Integraveis 




Nexus 

No estande da Scopus fox apresentada uma sirle de novidades, 
sendo as principals o Nexus, o micro da Scopus de 16 bits, e a rede lo- 
cal. A rede local possibilita a interligacdo de microcomputadores entre 
si, de forma a obter um compartilhamento de recursos. Podem ser liga- 
dos d rede local Scopus ate" 300 mdquinas, dependendo do tipo de apli- 
cacdo. O micro Nexus tern CPU com microprocessador Intel 8088, com 
8 MHz e i compativel com o IBM PC. Sua configuracdo basic a vem com 
256 K de RAM, dois drives para disquetes de 5 114", dupla face e dupla 
densidade e monitor de video de fdsforo verde. Seu preco de comercia- 
lizacdo fica por volta de 1. 700 ORTNs, e atravis de placa de expansdo o 
Nexus jd pode receber discos Winchester de 5 ou 10 Mb. Outros langa- 
mentos da Scopus foram o terminal video grdfico a cores, que se liga a 
qualquer micro com saida RS 232C, e a familia de terminals ET, com- 
pativeis com equipamentos da IBM. 




Z-2200 



A Zanthus tambim lancou na Feira seu micro de 16 bits. Trata-se do 
Z-2200, com processador Intel 8088, compativel com IBM PC, memdria 
inicial de 128 Kbytes, dois drives para disquetes de 5 1/4", face sim- 
ples e dupla densidade (aceita tambim disquetes de 8" e wichester de 5 
e 10 Mbytes), video teclado e impressora a partir de 100 CPS. Nesta 
versdo inicial o Z 2200 custa 2 mil ORTNs. 




M101/88 



Com um novo visual em toda a sua linha, bem mais funcional e agra- 
ddvel, a Schumec lancou o microcomputador Ml 01 /88, com micropro- 
cessador Intel 8088, de 16 bits, ate" 256 Kbytes de memdria e sistema 
operacional CP/M-86. O Ml 01/88 - que custa cerca de Cr$ 7 milhoes 
em sua configuracdo bdsica de UCP com 64 K RAM, duas interfaces de 
comunicacdo RS 232C, barra de comunicacdo S-100, controlador para 
ati quatro acionadores de disquete de 5 1 /4"ou 8" - opera atualmente 
s6 no modo monousudrio, mas a Schumec promete para breve uma pla- 
ca para tornd-lo multiusudrio. 

Outro micro mostrado foi o Ml 01/85, que tern microprocessador 
Intel 8085 de 8 bits. A sua memdria 4 de 64 K RAM, podendo ser ex- 
pandida por chaveamento ate" 128 K. Roda sob o sistema operacional 
MP/M e aceita as linguagens BASIC (interpretado e compilado), COBOL 
ANSI, Pascal (compilado), Fortran e MUMPS. Trata-se de um sistema 
multiusudrio que suporta ate 16 videos com 16 impressoras. Tern duas 
interfaces RS 232C, barramento S-100 e controlador para ate quatro 
acionadores de disquetes de 5 1/4" ou 8". Seu preco-base ide Cr$ 6,5 
milhoes. 

Ambos os modelos podem, opclonalmente, ser dotados de controla- 
dores para ati quatro acionadores de discos rtgidos de 6 ou 12 MBytes. 




IBM PC 

"A IBM veto mostrar sua tecnologia e o Pocket Computer faz parte 
desta tecnologia". Esta era a explicacdo mais frequente ouvida por parte 
dos funciondrios da IBM quando questionados do porque de expor um 
equipamento que ndo pode ser comercia lizado no pais. Quanto a futu- 
ras associates da IBM com empresas nacionais, foram muitos os boa- 
tos que circularam durante o Informdtica'83, mas por enquanto nada 
foi conflrmado. No maior estande da feira, com cerca de 800 m*, a 
IBM trouxe o que de mais moderno a empresa vem produzindo, inclusi- 
ve com uma mostra semelhante d que foi apresentada no ultimo NCC. 
Alem do Tunel da Tecnologia, que mostrava a evolucdo nesta area, a 
outra atracdo foi o prdprio PC. O Pocket Computer da IBM trabalha 
com processador Intel 8088, de 16 bits e tern memdria inicial de 64 Kb 
de RAM, expansivel ate" 640 Kb, atravis de placas internas de 64 Kb 
cada. Sua configuracdo bdsica vem com um drive para disquete de 
5 1/4", face simples ou dupla e densidade simples ou dupla, com 320 
ou 360 Kb, podendo receber tambim ati duas unidades de discos 
Winchester de 10 Mb. Seu teclado i alfanumirico com mais 10 teclas de 
funcoes: video monocromdtico ou colorido, com possibilidade de liga- 
(do d TV comum: saida serial ou paralela para impressora e funciona 
com as linguagens: BASIC, COBOL, APL, FORTRAN e Pascal. 



O Ego, microcomputador de 16 bits lancado no inicio deste ano, re- 
cebe agora uma placa adicional de multiplexacdo de terminals, passando 
a funcionar tambim como multiusudrio. Alim desta novidade, a Softec 
apresentou na Feira o processo de emulacdo 32-78, para ligacdo do EGO 
a computadores de grande porte como IBM 4341. 
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PC 2001 

Entre os novos equipamentos com microprocessadores de 16 bits, 
uma das novidades foi o PC 2001, da empresa paulista Microtec. O PC 
2001 4 compativel em hardware e software com o PC da IBM. O 2001 
trabalha com microprocessador Intel 8088 de 16 bits com velocldade de 
5 MHz, tern memoria ROM inicial de 8 expansivel ati 40 Kbytes, e a 
memdria disponivel para o usuario vai de 128 Kbytes de RAM podendo 
chegar ati 1 Mbyte. Em sua versdo mais simples, o PC 2001 estd sendo 
comerclallzado com dois drives para disquetes de 5 1 /4" face e densida- 
de simples, monitor de video em fdsforo verde e saida RS 232 para im- 
pressora serial, podendo o cllente optar por saida paralela. Nesta confi- 
guracdo, o PC 2001 custa 1.208 ORTNs e mais 50 ORTNs para osque 
quiserem drives para disquetes de dupla face e dupla densidade. O 2001 
pode funcionar tambim como multiusudrio atravis da Instalacdo de 
uma placa que aceita 8 terminals. O equipamento comporta ati duas 
destas placas, atingindo portanto 16 terminals. 

Outro lanqamento da Microtec foi o MT 400, uma versdo mais com- 
pleta do MT 300, que possui visor de cristal liquido de 24 caracteres; 
memdria RAM vana de 8 a 32 Kbytes; tern 16 K de Interpretador 
BASIC: aceita cassete e impressora serial, e segundo seu fabricante, no 
futuro poderd usar tambim disquetes. O MT 400 pode serusado como 
micro pessoal, como coletor de dados, terminal de vendas e para acesso 
a banco de dados, entre outras coisas. Seu preco i de 80 ORTNs. 
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TECNOLOGIA 



m 



Uma festa de pequeno 

valor tecnico 




III Feira International de In- 
form£tica marcou uma grande 

expansao no niimero de exposi- 

tores e do publico visitante. Cada fabri- 
cante procurou mostrar o que tinha de 
melhor no setor de desenvolvimento tec- 
nol6gico. 

Em nossa opiniao, entretanto, o nii- 
mero de novos desenvolvimentos feitos 
pela industria national e* deceptionante, 
preferindo a maior parte das empresas 
realizar a copia pura e simples de pro- 
dutos e sistemas programacionais estran- 
geiros. apelo excessivo a atracOes tipo 
jogos e luzes deleita o grande publico, 
mas tern certamente pouco valor te'cni- 
co, parecendo a Feira um imenso circo. 
Poder-se-ia dizer que os fabricantes da 
area de informatica preferiram substituir 
as pesquisas em micro pelas microssaias 
das recepcionistas!!! 

Entretanto podemos, dentro das in- 
dustrias nationals, citar honrosas exce- 
cSes: a Scopus com o lancamento do 
Nexus 1600 deu um passo gigantesco 
para o domi'nio do mercado national de 
16 bits. Esta empresa destacou-se tam- 
be"m pelo lancamento de seus terminals 
graficos TVG 4001 e TVA 3279, com 
tubo em cores de alta resolucao. Outro 
ponto elevado da Feira foi a Itaucom, 
que apresentou seu circuito integrado 
dedicado, totalmente projetado no Bra-, 
sil e difundido nos E.U.A. Destaca-se 
que este circuito satisfez totalmente as 



caracteristicas dele pretendidas, tendo 
substituido totalmente um cartSo im- 
presso TTL. Nos testes dinamicos, este 
circuito apresentou no oscilador em anel 
um atraso de 5 ns por inversor NMOS 
carga deplecao. 

Como outros destaques, podemos ci- 
tar o terminal de video semigrafico da 
Videotec e o robo desenvolvido pela 
Robot-Kalt-400. 

As multinationals, como sempre, rea- 
lizaram seu espetaculo a parte. Como 
maior efeito tecnologico podemos citar 
o HP-9000, com seu microprocessador 
de 32 bits e 450.000 componentes, da 
Hewlett Packard, e a IBM, com seu pai- 
nel piano a gas com 10.000 pontos de 
tela e sua mem6ria de 512 Kbits. Cha- 
mam tambe"m a atencao as estacjSes de 
projeto Intergraph, Computer Vision e 
Control Data. 

Nas estatais, destacam-se a Telebras 
entrando no campo dos CIs semidedica- 
dos, a FINEP por sua dedicac^o a tecno- 
logia national e a SERPRO, tambe'm en- 
volvendo-se na area de desenvolvimento 
tecnologico. 

Como nos demais anos, a Universida- 
de esteve a frente do desenvolvimento 
tecnol6gico de ponta. Neste ano, entre- 
tanto, as universidades fora de Sao Pau- 
lo contaram com muito pouco recurso 
para partitipar da Feira, sendo seus es- 
tandes muito humildes. Na exposicao, 
destacaram-se os seguintes trabalhos: 



GaAs e de InP/InGaAsP do LPD - UNI- 
CAMP; a rede local de comunicacao de 
dados REDPUC, da PUC do Rio de Ja- 
neiro; o nucleo de processamento dis- 
tribui'do FEPASA/FDTE; os terminals 
graTicos do LSI; o Sistema de Tratamen- 
to de Image ns do INPE; os motores de 
passo desenvolvidos pelo DEE-ESC, USP, 
Sao Carlos; o Cromat6grafo a gas desen- 
volvido pela Escola de Engenharia Maua/ 
Instruments Cientificos C.G.Ltda. e o 
Ultra-sonografo bidimensional 4BD 
criado pela FUNBEC. 

Com relacjio ao Congresso propria- 
mente dito, os trabalhos nationals nao 
foram, de modo geral, considerados de 
bom nivel, sendo que ouvimos varias 
criticas sobre a qualidade desses traba- 
lhos. As conferencias internacionais fo- 
ram consideradas de nivel mddio a bom. 
Outrossim, algumas conferencias tive- 
ram seu horario alterado e outras can- 
celadas, o que tambe'm prejudicou um 
pouco a qualidade do Congresso. 

Sem duvida, pordm, o saldo do XVI 
Congresso da SUCESU foi bastante posi- 
tivo para a maior parte dos participan- 
tes. Acreditamos que a III Feira foi de 
grande valia para o grande publico, ten- 
do, todavia, pouco interesse tecnico es- 
pecializado, a nSo ser pelos contatos que 
foram realizados entre os proprios expo- 
sitores. 

Joao Antonio Zuffo 



Nesta edicao, participaram na categona de convidados especiais de MS os seguintes prof issionais: do Laboratdrio de 
Subsistemas Integraveis da EPUSP, Joao Antonio Zuffo, Se'rgio Takeo Kofugi, Oscar Benedicto Jr., Oswaldo Cristo e 
Luis Sergio Moreira; Rudolf o Horner Jr., da Potencial Software; Renato Degiovani, de Micro Sistemas, e Ulrich Kuhn, da 
Digirede. 

Participaram ainda da cobertura do even to A/da Surerus Campos, Stela Lachtermacher, Claudia Salles Rama/ho, Ri- 
cardo Inojosa e Nelson Jurno, e da edicao do caderno, Edna Araripe, todos da equipe jornalfstica de Micro Sistemas. 



tasoevo 
o seu matron 

no piano de 



expansao 
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Estes sao os pianos de expansao para o seu Unitron ap II. 

Sem demora nem fila de espera, basta voce fazer a inscricao que 

eles comecam a funcionar imediatamente. 

Piano I - Expansao de memoria com + 32 ou + 64 ou + 128K. 

Piano 2 * Impressora parolelo de textos ou graficos . 

Piano 3- Microprocessador adicional Z - 80 (CP/M). 

Piano 4* Videocom40ou80caracteresporlinha, 

Piano 5 - Interface RS-232C para impressora ou comunicacoes 

(ligocdo via MODEM - redes ou grandes computadores). 
Piano 6 - Disco f fexivel de 5 1 /A" ou 8" - (isolados ou simultaneos) 
Piano 7- Disco rigido (Winchester 5Mb). 
Piano 8 * Saida de video a cores PAL-M ou RGB. 
Piano 9 - Si ntetizador de voz e sons . 
Piano 10- Digitalizodordeimagens. 

iZXpGfiSGO OD JL 

Mais um servico Unitron. 



V lIMtll Ml Id *l-0»*« !<**-•». Id IKMI1 M*»- Id Kt*JH WWw'l- 7*7 JIM N^o.,,^ Td |U J«.) C*T W !K14H 'mnhi IM Ui U** >•(. f-,»i~,e Id Hi 31JJ imm "»■ ::i ill' 
i«i. Id IU-OJW • !■»■ - rd 7I7WJ r«*« lit IS* -7W C»m*«»i ■ << - »>■ «■ » '1 cne?i 31 Ml* o™ Id |01»7i »mt Ci. <i. inl. J Id |01«1 )IW1 bkhw-Om Id iMhJJJJIfO Mnntq*** M 
lMll»7B»9-i*c«li.r-1* \mtiWI?H Qi *** * *„ 1M |M ri J*7 «m ■ **• ■ 1¥ lW«l JW«» OnH«tai W i«i i »l IttM* iwnii - <«»p«i T«l RH| DUB EMM ■ 't> |0)tiI»-»» i*eioiJ»» ■ W 
,031. 3JJ r— » (mtitm-ia^cn 1«< ItMlj 31tH.lt { » i n ■ w !Dilj:uinM««M-CwH Id IMTO 7 }»*J ««*. . 0*m-o Td i(Hli}»nit M^^y^p Td |Wn «*■>!» Uhm*m -O^c*. I- iW'l )1 t*t* 

- T« io*i i if>t i if ■ ettm I - "*•*+»* td . wm; TT7 wi 3 >«*» ***•* ■ ***w^ rw tMWl »iiw tim'ti w iMih 7? mi |djnii . a*am Td iwwimhto 




Uma breve apresentagao sobre Astrologia e, para os usuarios do Apple, 
um programa para o calculo do Signo Ascendente 



micro entre os astros do zodiaco 



I saber astrol6gico 6 um saber 
ancestral. De cinco mil anos da- 

tarn os primeiros documentos 

(que se referem, por sua vez, a muitos 
outros antigos registros...). Os fenome- 
nos cosmicos sempre intrigaram o espi- 
rito humano. Sua natureza ciclica — des- 
coberta nada 6bvia de pacientes e ela- 
boradissimas observacOes — encontram 
inevitdveis paralelos no piano da vida 
aqui em baixo. Assim como Hesiodo, 
em Os Trabalhos e os Dias, dd-nos conta 
de quanto o quotidiano da antiguidade 
pulsava em unissono com o ciclo solar, 
da mesma forma, em nossos dias, na di- 
mensSo imediata do observa'vel, a in- 
suspeita Fisiologia di-nos conta de inu- 
merdveis exemplos de funcCes biol6gi- 
cas que vibram em harmonia com os 
mais ex6ticos rel6gios c6smicos. So be- 
low as above... 

Relativamente ao Conhecimento do 
Homem, seguiu a Astrologia caminhos 
independentes, mas na"o conflitantes, 
com as atuais Ciencias Humanas. Apro- 
ximou-se melhor do projeto de Bache- 
lard, porque jamais perdeu a visa"o do 
Todo. Na vertente da Histdria, anteci- 
pou de milenios a concepclo ciclica de 
Spengler e Toynbee ; na vertente social e 
economica, procurou predizer os perio- 
dos de escassez e de guerras, preparan- 
do, deste modo, a sociedade para en- 
frenta-los; na vertente psiquica, procla- 
mou sempre o Gnoo Seauton (versa"o em 
latim do que em grego significa "Conhe- 
ca-te a ti mesmo"). 



Luiz Roberto Barboza de Oliveira 



Relativamente a Mecanica Celeste e & 
Astronomia, pode-se dizer que devem 
seu nascimento e grande parte de seus 
resultados a Astrologia, tornando-se dis- 
ciplinas independentes apenas quando 
da formulacSo das leis de Kepler e New- 
ton, alids astr61ogos de extensas obras, 
cuidadosamente encobertas primeiro pe- 
la Contra-Reforma, depois pela Institui- 
cao Cientifica. 

Mesmo assim, a Astrologia (e bem as- 
sim todos os saberes que nfo se inseri- 
ram explicitamente no discurso do po- 
der ou que o ameacaram no seu jugo) 
foi relegada a condicfo de contracultu- 
ra, perseguida ou marginalizada tanto 
pela ideologia crista quanto pela ideolo- 
gia da revolucfo burguesa que a suce- 
deu. Assim, a Ciencia Oficial passou a 
ser a exdusiva distribuidora dos estatu- 
tos de cientiflcidade como se fossem in- 
dulgencias plenarias, e manteve cassado, 
entre outros, o da Astrologia. 

Hoje, as vesperas da Era de Aqu&io, 
os tempos estSo mudando. Uma nova 
Astrologia - dita Humani'stica — vem 
eclodindo em todos os cantos do globo, 
promovida muitas vezes por doutas pes- 
soas, antes insuspeitas perante a Ciencia 
Oficial: fisicos, psic61ogos, analistas, 
matemiticos, cientistas sociais e outros 
tantos de notdrio saber. Karl Gustav 
Jung foi o pioneiro, mas segue-se-lhe 
uma lista intermindvel que na"o cessa de 
se ampliar. 



COMPUTADOR 
NA ASTROLOGIA 

Do que foi exposto ate" agora, depre- 
ende-se que o computador pode prestar 
inestimaves servicos ao astr61ogo. Ape- 
nas nao pode substitui-lo... Com efeito, 
toda a calculeira das Posicoes Astrais, 
dos Aspectos e das Casas pode ser a ele 
delegada; toda a trabalheira de analise 
de pontos mddios, sinastria, cartas com- 
positas, transitos, progressSes e outras 
te'cnicas e recursos. A arte de interpre- 
tar, todavia, a visSo holistica e sinte'tica, 
forca maior do me'todo astrol6gico, cor- 
responde a talentos nao program^veis e , 
portanto, escasso ou nenhum socorro 
pode a eles ser prestado pela m£quina. 

Antes de passarmos ao programa para 

calculo do Ascendente, o qual lista- 
mos a seguir, podemos citar entre ou- 
tras aplicacOes: 

1 — Programas para o calculo das Posi- 
coes Astrais. Estes cdlculos sdo ostro- 
nomicos, e, como a Astrologia exige pre- 
cisao para uma larga faixa de tempo (da 
ordem de um se'culo), os algoritmos sdo 
longos e sofisticados, pois devem levar 
em conta perturbaqbes de ordens su- 
periors nas drbitas dos planetas. Este 
problema esbarra um pouco nos limites 
dos micro computadores, podendo por 
eles ser resolvido se limitarmos nossas 
exigencias. 

2 — Programas para o calculo das Casas 
Mundanas. Sdo programas de menor 
porte, mas nao de menor sofisticagdo, 



devido, de um lado, a multiplicidade de 
me" to dos de calculo de Casas, sobre os 
quais a Astrologia ainda nao estabeleceu 
consensd, e, de outro lado, d dificuldade 
de se encontrar literatura sobre os algo- 
ritmos de calculo das mesmas. 

3 - Programas para o calculo dos As- 
pectos. Sdo programas triviais, a partir 
das Posiqoes Astrais. mais delicado 
nesta classe de programas e" estabelecer 
as orbes (intervalos de confianga), den- 
tro das quais as relagoes angulares sdo 
consideradas vdlidas, pois cada astrdlogo 
tern a sua prdtica e as suas justificativas 
pessoais. 

4 - Programas ditos de "interpretacao". 

Sdo, na verdade, editores de texto asso- 
ciados a uma base de dados textuais, 
previamente montada ou fornecida. Evi- 
dentemente que o talento para identifi- 
car as posiqoes e aspectos dominantes de 
uma carta estd longe de ser algoritmizd- 
vel. Assim, os produtos finals das "in- 
terpretacoes" automatizadas estdo con- 
denados a ser meramente indicativos e 
seccionalmente miopes... — o que nao 
Ihes tira totalmente o interesse. pri- 
meiro destes programas, impkntado hd 



muitos anos em Paris, foi o Astroflash. 
Seus resultados, sem ser desprezi- 
veis, nao sdo excepcionais, sobretudo 
pela orientaqdo dos textos da base. 
problema, todavia, 4 maior que um mi- 
cro, devido, sobretudo, as dimensoes da 
base de dados. 

PROGRAMA PARA 

O CALCULO DO ASCENDENTE 

As pessoas, em geral, conhecem seu 
Signo Solar, pois ele depende apenas do 
dia do. seu aniversario, exceto, talvez, 
em dias de mudanca de signo, quando o 
ano e a hora de nascimento tambe'm in- 
tervem. 

Signo Solar € importante, porque 
a energia radiante do Sol representa o 
arqudtipo da vontade, da forca vital, da 
auto-expressilo, da integridade e do or- 
gulho do ser. Sol representa tambe'm 
o arqudtipo do heroi, das forcas da luz. 
A nivel material, o Sol € a energia fisica. 
A nivel psiquico, ele e' a energia da Libi- 
do Junguiana, a energia bdsica que ali- 
menta todas as funcoes psicologicas. 

Mas o Signo Solar nao 6 o unico sig- 
no proeminente da carta natal: o signo 
onde se encontra o Ponto Ascendente 



(i.e., o signo do zodiaco que estava le- 
vantando no horizonte no momento e 
no local de seu nascimento) 6 singular- 
mente importante. Ascendente sim- 
boliza sua persona (no sentido de Jung), 
sua mascara (significado da palavra 
etrusca persona), a maneira como voce 
se mostra aos outros, o personagem que 
voce representa, inclusive sua aparencia 
ffsica (e com ela sua saiide e vitalidade)'. 
£ a parte do seu Eu que o intermedia 
com o mundo. Por isso, o Ascendente 
representa muitas vezes sua auto-ima- 
gem, tanto quanto sua persona. Estes 
motivos fazem com que as pessoas do- 
tadas de intuicao astrol6gica tenham, 
em um primeiro contato, mais facilida- 
de em reconhecer o Signo Ascendente 
do que o Signo Solar de algue'm. 

Como muitas pessoas normalmente 
tern curiosidade de saber seu Signo As- 
cendente sem ter que recorrer a tabelas 
dificeis de encontrar e a calculos no mi- 
nimo fastidiosos, ocorreu-nos publicar 
este programa para ilustrar, com um 
exemplo ao mesmo tempo util e n3o 
muito extenso, o emprego do micro- 
computador em Astrologia. Se voce tern 



A linguagem e o m&odo astrologico 



Na sua expressao mais simples, a Astrologia lid a com quatro 
categorias de simbolos: os Astros, os Signo s, as Casas e os Aspec- 
tos. 

Os Astros (Sol, Lua, Mercurio, Venus, Marte, Jupiter e Satur- 
no - mais recentemente Urano, Netuno e Plutao) representam 
energias, vibracoes. 

Os Signos do Zodiaco (Aries, Touro, Gemeos, Cancer, Leao, 
Virgem, Libra, Escorpiao, Sagitario, Capricomio, Aquario e 
Peixes) constituem um sistema absohito de referenda, fixo no 
ecu, em relacao ao qual sao determinadas as posicoes dos outros 
elementos. Cada Signo e um lugar de forca, um modulador de 
energia dos Astros. Sao segmentos iguais, de 309 cada um, em 
tomo da esfera celeste, medidos sobre o piano da ecliptica a 
partir do Ponto Vernal. Outrora (ha dois mil e quinhentos anos) 
coincidiam os Signos com as Constelacdes que lhes deram os no- 
mes. Hoje, devido a Precessao dos Equinocios (movimento do ei- 
xo da Terra com periodos de 25.400 anos), houve um certo des- 
locamento, estando o Signo de Aries, por exemplo, ocupado pela 
Constela§ao de Peixes, ja em vias de ceder lugar a de Aquario. 

As Casas Terrestres (Casas I, II, III, IV, V, VI, VII, VIII, IX, 
X, XI, XII) constituem, por sua vez, um sistema local de refe- 
renda, em relacao ao qual sao tambe'm determinadas as posicoes 
dos Astros. Este sistema local 6 centrado no fato, no evento, 
enquanto ponto de espaco-tempo terrestre: o seu instante e o 
seu lugar na superfide da Terra. Cada Casa representa uma fa- 
ceta do fato, uma dimensao do evento. Por exemplo: na carta 
natal de uma pessoa, a Casa III representa a mente, a capaddade 
de comunicar-se, pequenas viagens, irmaos e vizinhos; a Casa 
VII, as relagoes a dois, o casamento, os sodos, o julgamento que 
os outros fazem dele; a Casa XI, as amizades verdadeiras, o amor 
que se recebe, os ideais, e assim por diante. A presenca de um 



Astro numa Casa imprime a energia dele na dimensSo ou area por 
ele presidida. 

As Relacoes Angulares ou Aspectos, por fim, correspondem 
as combinagoes de energia dos Astros entre si. Com efeito, os 
principals Aspectos que os luminares podem formar entre si, 
segundo suas posicdes relativas ao redor do Zodiaco, sao: conjun- 
cfo (09); oposigao (1809); trigono (1209); quadrature (909) 
e sextilha (609). Conjun$6es representam somas diretas das ener- 
gias dos Astros que mantem esta relacao angular. Sao Aspectos 
fortes e permanentes, quase sempre positivos. Trigonos e sexti- 
lhas sao Aspectos harmonicos, os primeiros estaveis e os segun- 
dos dinamicos. Oposicoes e quadraturas sao Aspectos mais diff- 
ceis, e representam interferencias de energias e vibracoes. gerado- 
ras, por vezes, de tens5es e de crises. Considerados Aspectos ma- 
leficos atd bem pouco tempo, estao perdendo esta conotacao e 
sendo tidos como oportunidades de crescimento e de desenvol- 
vimento interior, como as crises normalmente o sao, quando 
bem resolvidas. 

Astros, Signos, Casas e Aspectos sao, pois, os simbolos basi- 
cos com os quais a Astrologia articula o seu discurso. To memos 
um evento - seu nascimento, por exemplo. Neste mesmo instan- 
te e deste mesmo lugar os Astros farao um desenho na esfera ce- 
leste: a sua carta natal. Mero acaso? Nao. Nada acontece por aca- 
so. Ha, diria Jung, uma sincroniddade entre voce e sua assinatu- 
ra astral. Suas energias, suas vibracoes, sua musica interior, suas 
intencoes, seu papel, sua missao , seus possiveis, os recursos, en- 
fim, iisicos, emocionais, mentais e espirituais com que voce veio 
a esta vida estao, de alguma forma, impressos no desenho que se 
formou nos ceus para recebe-lo. Desvendar este miste'rio para vo- 
ce melhor se conhecer, e assim desenvolver e realizar as suas po- 
tendalidades na sua plenitude, tal e a finalidade desta nova As- 
trologia. 



M 



PROCURE QUEM 
REALMENTE ENTENDE. 



^■^MICROMAQ 



R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especial izadas, Cursos e Manutencao de Equipamentos. 
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MICRO ENTRE OS ASTROS DO ZODIACO 



acesso a qualquer micro compativel com 
o Apple (ou ao pr6prio) experimente-o 
e descubra o seu e o Ascendente de seus 
amigos. 

Para o calculo do Signo Ascendente 6 
mister conhecer: 

a) a data de nascimento; 

b) a hora de nascimento (com a maior 
exatidao possivel, pois a cada 20 minu- 
tos o Ascendente varia, em me'dia, 5 
graus); 

c) a latitude, a longitude e o fuso hora- 
rio do local de nascimento. 



calculo, por exemplo. do Ascen- 
dente de uma pessoa nascida a 5/6/1977,. 
as 21 :30 horas, no Rio de Janeiro - RJ 
(latitude Sul 22 graus e 54 minutos; lon- 
gitude West de Greenwich 43 graus e 13 
minutos; fuso horario + 3h) dara, como 
resultado, Aquario. Em 1977 nao houve 
horario de verao no Brasil (ver box em 
anexo). 

Havendo interesse em saber o grau 
exato do Ascendente em Aquario, deve- 
se digitar < T > para terminar, e, 
em seguida, diante do cursor, PRINT 



Quadro de 
horarios 
de verao 
no Brasil 



1931/32 - de 11 h de 3/10/31 a 24 h de 31/3/32 

1932/33 - de h de 3/10/32 a 24 h de 31/3/33 

1949/50 - de h de 1/12/49 a 24 h de 15/4/50 

1950/51 - de h de 1/12/50 a 24 h de 31/3/51 

1951/52 - de h de 1/12/51 a 24 h de 31/3/52 

1952/53 - de h de 1/12/52 a 24 h de 28/2/53 

1963/64 - apenas para os estados de Sao Paulo, Rio de Janeiro, 

Guanabara, Espirito Santo e Minas: de h de 23/12/63 a 24 h 

1963/64 - para o resto do Brasil: de h de 9/12/63 a 24 h de 

29/2/64 

1965 - de h de 31/1/65 a 24 h de 31/3/65 

1965/66 - de h de 1/12/65 a 24 h de 28/2/66 

1966/67 - de h de 1/11/66 a 28/2/67 

1967/68 - de h de 1/11/67 a 24 h de 29/2/68 




DG. A resposta do sistema sera o grau 
desejado. 
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CIBERNE 



O SOFTWARE QUE VOCE MERECE 



AGORA VOCE DISPOE DE CIBERNE, 

A MAIS MODERNA E SOFIS- 

TICADA LINHA DE SOFTWARE 

DO BRASIL, ELABORADA E GARANTTDA 

PROFISSIONAIS DO MAIS ALTO PADRAO. 




POR 



= VEJA AS VANTAGENS: 



• DIVERSIFICADA LINHA DE PROGRAMAS 

• NOVOSLANQAMENTOSPERIODICAMENTE 

• PACOTES ECONOMICOS 

• GRAVAQAOPROFISSIONAL 

• EMBALAGEM INVIOLAVEL 

• GARANTIA TOTAL 




O REVOLUCIONARIO SISTEMA QUE PERM1TE AO 
TK 82/85, CP- 200 E COMPATlVEIS, SEM QUALQUER 
MODIFICAQAO.CARREGAREM AS FITAS CIBERNE 
AT* 6 VEZES MAIS RAPIDO QUEONORMAL 



EM TODO O BRASIL NAS MELHORES CASAS DO RAMO 
DESCONTOS ESPECIAIS PARA REVENDEDORES 



PARA MAIORE8 INFORMACOU: 



uvn 



Microcompufadores Lfda. 



AV I3 0£ MAJO, 23-0RUPO161B CCP20A31 -RIO OE JANEIRO - RJ TEL.: (021 1 «H 
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LIVRARIA SISTEMA 

Loja: GALERIAMETROPOLE, LJ.8- 1 a S/LOJA 
TELS.: 259-1503 -257-61 18 - SP. 

ENTRADAS DA GALERIA: 

AV. SAO LUIZ. 187 - (Antigo 153) 

PRACA DOM JOSE GASPAR. 106 - SP. 

SEMPRE NOVIDADES 

1 - "O COMPUTADOR: UM NOVO SUPER-HEROI" - £ urn livro que des- 

venda todos os misterios dos computadores. desde seu nascimento ate a 
lingua que eles gostam de usar para conversar conosco. Destinado ao pu- 
blico infanto-juvenil e a leigos no assunto, o livro e leitura obrigatbria e re- 
comendada para quern quiser ter o novo super-her6i como urn aliado para 
o futuro: POR MARIA CECILIA CALANI BARANAUSKAS/HELOISA 
V.R. CORREIA SILVA - EDICAO 1983 - 157 paginas - Cr$ 5.400.00. 

2 - APPLE II - GUIA DO USUARIO - OSBORNE/McGRAW-HILL - TRADU- 

CAO NACIONAL - 1984 - Cr$ 9.800.00 

3 -A CONSTRUgAO DE UM COMPILADOR - SETZER - edicSo 1983 • 

Cr$ 5.700.00. 

4 - A PRIMEIRA MORDIDA - Apple II - maxxi unitron - microengenho • dac- 

tron - apple br. - edicao 1983 - Wilson Tucci - Cr$ 4.200,00. 

5 - BASIC SEM SEGREDOS • Victor Mirshawka - edicao 1983 - Cr$ 6.500,00. 

6 - ESTRUTURAS DE DADOS - Veloso/Furtado - edicao 1983 - Cr$ 6.900,00. 

7 - INTRODUCAO A LINGUAGEM BASIC PARA MICROCOMPUTADORES - 

Carlos Lederman - edicao 1983 - Cr$ 6.350,00. 

8 - O MICROCOMPUTADOR NO CONSULT0RIO MEDICO - Luis G. Nas- 

cimento - edicao 1983 - Cr$ 5.200.00. 

9 - MASTERING MACHINE CODE ON YOUR ZX81 OR ZX80 - Toni Baker - 

Cr$ 18.000,00. 

10 • 49 EXPLOSIVE GAMES FOR THE ZX 81 • Tim Hartnell - Cr$ 14.100,00. 

11 - IDEA BOOK - THE TIMEX - SINCLAIR 1000 - includes 50 ready-to-run 

educational programs - Ahl - Cr$ 16.000,00. 

12 - GETTING ACQUAINTED WITH YOUR VIC 20 • more than 50 programs - 

Hartnell - Cr$ 16.000.00. 

13 - THE BEST OF SYNC - over 80 creative applications, programs and games 

for Sinclair - Grosjean - Cr$ 1 6.000,00. . 

14 - LINGUAGEM DE MAQUINA P/O TK: 82-83-85 - (assembler Z-80) - Flav.o 

Rossini - Cr$ 6.500,00. 

15 - FAST BASIC - Beyond TRS-80 BASIC - Gratzer - Cr$ 24.600.00 

16 - ENHANCING YOUR APPLE II - Lancaster - Cr$ 30.400,00 



ATENDEMOSPOR REEMBOLSO 

CORREIO E VARIG - tfora da Capital) 

PEDIDOS PARA: Cx. Postal 9280 

CEP 01051- SAO PAULO - SP 




Seduzido e abandonado. 



it 



Esta e a historia do cavalheiro que comprou 

um microcompuiador que ia resolver todos 

os problemas da sua empresa. 

O preeinho era bom e a conversa do 

vendedor, atraente. Poucos dias depois ele 

descobriu que o equipamento nao resolvia 

todos os problemas (pelo contrario, criava 

alguns novos) e pior de tudo, ao voltar a loja 

onde tinha comprado, percebeu que ninguem 

entendia realmente do assunto. 

Em outras palavras, ele foi lamentavelmente 

seduzido e abandonado. Mas nem tudo esta 

perdido: basta consultar a 

Microshop antes de comprar um 

microcomputador. 

A Microshop ouve antes de t alar. 
Micros sao formidaveis, desde que sejam 
recomendados exatamente para as suas 
necessidades. 



Porisso nos fazemos todo tipo de 
perguntas sobre a sua atividade, e o 
tratamento das informacoes para podermos 
acelerar o processo de tomada de decisoes. 
Nos achamos que quanto mais soubermos 
sobre o seu problema, mais facil e completa 
sera a nossa solu«;ao. 

A Microshop da opinides sinceras. 

Trabalhamos com todas as marcas e modelos 
importantes e nao temos interesse em 
"empurrar" esta ou aquela marca. Assim, 
voce tern a certeza de receber 
sempre um opiniao independente. 

A Microshop resolve mesmo. 

Ao inves de um simples balconista bem- 
intencionado, nos atendemos voce com gente 
formada em Computer Science na 
Universidade de Nova York. 



Isso que dizer orientacao 
inteligente e correta na escolha do 
software mais adequado (tambem 
desenvolvemos programas especificos para as 
suas necessidades). Significa tambem colocar 
a sua disposicao nossa longa experiencia com 
profissionais liberais, empresas de pequeno 
pone e multinacionais. E mais: damos 
treinamenio completo na utilizacao dos 
micros e softwares. 

Venha conversar conosco. Nos podemos lhe 
seduzir, mas nao vamos nunca lhe abandonar. 



A loja dos micros intelig 



ICfO 

snop 

jentes. | 
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Sao Paulo: Al. Lorena, 652 - CEP. 01424 -Tels: (01 1) 282.2105 - 852.5603. 
Recife: Av. Conselheiro Aguiar, 1385 - Loja 4 CEP. 50.000 -Tel.: (081) 326. 1525 - Boa Viagem . 



MICRO ENTRE OS... 



'Calculo do Ascendente- 



10 REM *»**»*#*«*»»***»*»******« 

20 REM * CALCULO DO ASCENDENTE * 

30 .REM «**» ASTROSCIENTI A «***« 

40 REM »**CAIXA POSTAL 34044 *»* 

50 REM «»** RIO DE JANEIRO »»»»* 

60 REM *****»***»»»**********»** 

70 POKE 34,0 

100 DIM SI*<12> ,DM*/.<13> 

110 DATA 0,31 , ARIES, 59, TOURO, 90 
, GEMEOS ,120, CANCER ,151, LEAO , 
181 ,<v'l"RGEM,212,LIBRA,243,ESC 
ORPIAO, 273, SAGITARI 0,304, CAP 
RIC0RNI0,334,AQUARI0.365,PEI 
XES 

120 READ DMX<0)i FOR I = 1 TO 12 
: READ DMX(I) ,SI*<I> : NEXT 

130 PL = .01 74532925: BL* = " 

" :B* = CHR« (7) 
140 DEF FN SKX) = SIN <X * PL 

> 
150 DEF FN CO<X) = COS <X »' PL 

) 
160 DEF FN TA<X> = TAN (X * PL 

> 
170 DEF FN AR<X> = ATN <X> / P 

L 
180 DEF 



200 
-210 



FN MO(X> = <X / MO - INT 
<X / MO>). * MO . 
REM *»*PROGRAMA PRINCIPAL*** 



GOSUB 300: GOSUB. 600: HOME : 
GOSUB 800: GOTO 210 
290 REM 
300 REM *** ENTRADA DE DADOS *** 

310 HOME : INVERSE : VTAB 1: PRINT 
BL*;" ENTRE COM AS SEGUINTE 
S INFORMACOES: ";BL*: NORMAL 
: POKE 34,18 

320 GOSUB 400: HOME : GOSUB 410: 

HOME : GOSUB 430: HOME : GOSUB 
470: GOSUB 480: GOSUB 510: GOSUB 
540 : HOME : GOSUB 580 : RETURN 

330 HOME 

400 VTAB 18: INVERSE : PRINT "<1 
i N M E : 

" : NORMAL : VTAB 20 
: INPUT NO*: VTAB 5: PRINT " 
<1> NOME : "jNO*; LEFT* <<BL 
* ♦ BL*>,69 - LEN (NO*)): RETURN 

410 VTAB 18: INVERSE : PRINT ■ <2 

J DATA DE NASCIMENTO s"l NORMAL 
: VTAB 20: INPUT "D I A (1 
A 31) : "sA*:DD ■ VAL <A*) : 

IF DD < 1 OR DD > 31 THEN PRINT 
B*: GOTO 410 

413 VTAB 21: INPUT "M E S <1 A 

12) : "sA*:MM = VAL (A*): IF 
MM < 1 OR MM > 12 THEN PRINT 
B*: GOTO 413 

416 VTAB 22: INPUT "ANO (1900-20 
OOi : "jA*:AA = VAL (A*): IF 
AA ( 1900 OR AA > 2000 THEN 
PRINT B*: GOTO 416 

420 VTAB 7: PRINT "(2) DATA DE N 
ASCIMENTO : " ;DD; "/" ;MM j •/• ; 
AA j " " : RETURN 

430 VTAB 18: INVEP3E : PRINT " <3 
> HORA LOCAL DO NASCIMENTO : 
" : NORMAL : VTAB 2 
0: INPUT "HORA (0 A 23) 
: "jA*:HH = VAL (A*): IF A3C 
(A*> ( 47 OR ASC (A*) > 57 CR 
HH < OR HH > 23 THEN PRINT 
B*: GOTO 430 



440 VTAB 21: INPUT "MINUTO <0 
A 59) : ";A*:MS = VAL (A*> : 
IF ASC (A*> < 47 OR ASC ( 
A*) > 57 OR MS ( OR MS ) 5 
9 THEN PRINT B* : GOTO 440 

450 '-TAB 22: INPUT "HORA DE VERA 
(S/N) : " ;V»: IF V* ( > " 
S" AND V* ( > "N" THEN PRINT 
B*: GOTO 450 

455 HV* = " ": IF V* = "S" THEN 
HV* = "H.V." 

460 VTAB 9: PRINT " <3> HORA DO N 
ASCIMENTO : ";HH;"H ";MS;""' 
j " •' j HV* : RETURN 

470 VTAB 18: INVERSE : PRINT " <4 

> LOCAL DE NASCIMENTO - CI DA 
DE NATAL : " : NORMAL : VTAB 2 
0: INPUT NC*: HOME 

475 VTAB 11: PRINT »<4> CIDADE N 
ATAL : ";NC»; LEFT* ( ( BL* t 
BL*),61 - LEN (NC*)>: RETURN 

480 VTAB 18: INVERSE : PRINT " <5 

> LOCAL DE NASCIMENTO - LATI 
TUDE : " : NORMAL : VTAB 2 
0: INPUT "HEMISFERIO (N/S) : 

" jN*: IF N* ( > "S" AND N4 
( > "N" THEN PRINT B* : GOTO 
480 
490 VTAB 21: INPUT "G R A U S (0 
A 89) : "jA*:GG = VAL (A*) 
: IF ASC <A*> ( 47 OR ASC 
(A*) ) '57 OR GG ( OR GG > 
89 THEN PRINT B* : GOTO 490 
500 VTAB 22: INPUT "MINUTOS (0 
A 59) : ";A*:MT = VAL (A*) 
: IF ASC (A*) < 47 OR ASC 
(A*) > 57 OR MT ( OR MT > 
59 THEN PRINT B* : GOTO 500 
505 VTAB 13: PRINT " v"5> LATITUDE 
: ■ ;GG;" G " ;N*;" " ;MT;"'" 
i " " : RETURN 
510 HOME : VTAB 18: INVERSE : PRINT 
•<6> LOCAL DE NASCIMENTO - L 
ONGITUDE : * : NORMAL : VTAB 
20: INPUT "HEMISFERIO 'W/E> 
: " ;E*: IF E* < >. "U" AND E 
* ( > "E" THEN PRINT B* : GOTO 
510 
520 VTAB 21: INPUT "G R A U S (0 
A 179): "jA*:GN = VAL (A*) 
: IF ASC (A*) ( 47 OR ASC 
(A*> > 57 OR GN ( OR GN > 
179 THEN PRINT B* : GOTO 520 

530 VTAB 22: INPUT "MINUTOS (0 
A 59) : "jA*:MN = VAL (At) 
: IF ASC (A*) < 47 OR- ASC 
(A*) > 57 OR MN < OR MN ) 
59 THEN PRINT B* : GOTO 530: 
HOME 

535 VTAB !4: PRINT " <6> LONGITUD 
E : " ;GNi" G " ;E*;" " jMNj" '" 
j " " : HOME : RETURN 

540 VTAB 18: INVERSE : PRINT "(7 

> LOCAL DE NASCIMENTO - FUSO 
HORARIO :": NORMAL : VTAB 2 

0: INPUT "FUSO HORARIO (-12 
A +12) : " ;FF: IF FF ( - 12 

OR FF > 12 THEN PRINT B* : GOTO 
540 
550 VTAB 16: PRINT "(7) FUSO HOR 

ARIO : ";FF;" ": HOME : RETURN 

580 VTAB 13: INVERSE : PRINT " (E 

> EDITA CAMPOS <C 



MERO DO CAMPO A ED I TAR : 

" : NORMAL : GET A* 

: IF ASC (A*) ( 49 OR ASC 

(A*> > 55 THEN PRINT B*: GOTO 

590 
593 CP = VAL (A*>: ON CP GOSUB 4 

00,410, 430 , 470 , 480 ,510, 540 
596 HOME : GOTO 580 

599 REM 

600 REM *** ROTI.NA DE CALCULO ** 

610 REM 

620 REM *** 1) OBLIQ.DA ECLIP.** 

625 HH = HH + FF: I F V* = "S" THEN 
HH = HH - 1 

630 AA = AA - 1900:DJ = AA * 365 + 
INT (AA / 4, + DMX(MM - 1) + 
(DD - .5) + (HH + MS / 60) / 
24: IF ((AA / 4 - INT (AA / 
4)> = 0) AND (MM < 3) AND (A 

A ( > 0) THEN DJ = DJ - 1 
640 T = DJ / 36525: OB » 23.452294 

44 - .0130125 * T 
650 REM *** 2) TEMPO SIDERAL ««« 

660 REM 

670 HS = 18.64606555 + 2400.05126 
2 * T + (.0929 / 3600.) « T " 
2:M0 = 24:HS = FN MO(HS) 

680 IF HS ( THEN HS ■ HS + 24: 
GOTO 670 

690 AS = (HH + MS / 60) + 12:AS = 
FN MO(AS) :-LN = (GN + MN / 6 
0): IF E* = "W" THEN LN = 36 
0. - LN 

695 TS = HS + AS + LN / 15:TS = FN 
MO(TS) 

700 REM ***** 3) ASCENDENTE **** 

710 REM 

720 MO = 360 :AO = FN M0(90. * TS 
* 1 5 . ) : LT = GG + MT / 60 : IF 
N* = "S" THEN LT = 360 - LT 
730 MO = 360 :A0 = FN MO(AO) :AN = 
FN AR( FN TA(LT) /' FN CO(A 
0)>:LG = FN AR< FN TA(AO) * 
FN CO(AN) / FN CO(AN + OB) 
) 
740 IF LG ( THEN LG = LG . + ISO 

750 IF FN SI(AO) ( THEN LG = 

LG + ISO 
760 RETURN- 
800 REM *** SAIDA DE DADOS ***** 

810 REM 

820 VTAB 1 : INVERSE : PRINT " 

ASTROSCIENTI 
A " ; BL* j * R E S U 

LTADOS PARA 
" : NORMAL 
830 MO = 30:DG = FN MO(LG) 
(1_G / 30) + 1 : VTAB IS 
BL* 
840 INVERSE : VTAB 19: HTAB 10: PRINT 
ASCENDENTE " I HTAB 



585 
590 



> CALCULA " : 
*: IF RE* < 
> "C" THEN 
580 
IF RE* = "C" 



NORMAL : GET RE 
> "E" AND RE* < 
PRINT B*: GOTO 



THEN 



VTAB 18: INVERSE 



RETURN 
PRINT "NU 



Detalhes 
sobre oprograma 

programa e dividido em tres partes: 
• de 10 a 180 - Dimensionamento de va- 
riaveis indexadas, dados fixos e definicao 
de funcoes especiais. 



• de 200 a 210 - Programa principal. 

• de 300 a 860 - Sub-rotinas de entrada 
de dados, de calculo e de saida de dados. 

Estas sub-rotinas, por sua vez, subdivi- 
dem-se da seguinte maneira: 

• de 300 a 596 - Rotina de entrada e edi- 
cao de dados: cabecalho e programa (300- 
330); nome (400); data de nascimento 
(410-420);horadenascimento(430-460); 



:S = INT 
: PRINT 



10: PRINT 



EM 



HTAB 10: PRINT LEFT* 



(BL*,(20 - 



855 



860 



LEN (SI*(S)>) / 
2);SI*(S); LEFT* (BL*,(20.5 - 
(20 - LEN (SI*(S)>) / 2 - LEN 
(SI*(S>>>> : NORMAL 
VTAB 23: INPUT " (R> RECOME 
CA <T> TERMINA :*;R 

E*: IF RE* = "R" THEN POKE 
34,0: HOME : RETURN 
IF RE* = "" THEN POKE 34,23 
: PRINT B*: GOTO 850 
POKE 34,0: HOME : VTAB 12: PRINT 

ATE LOGO E OBRIGAD 
0.°! VTAB 23l HTAB 27: PRINT 
"ASTROSCIENTI A" : END 



local de nascimento (470-550) e edicao de 
campos (580-596). 

• de 600 a 760 - Rotina de calculo : calcu- 
lo da obliquidade da ech'ptica (620-640); 
caiculo do tempo sideral do nascimento 
(670-695) e calculo do Ascendente (700 - 
760). 

• de 800 a 860 - Rotina de saida de da_- 
dos. 



Voce esta a f im de 
urn programinha 
ou procure uma 

relapao duradoura? 



Programas, voce encontra em qualquer lugar. 

Uma bela embalagem, urn papo envolvente e 
pronto: parece que aquele software e o seu micro 
foram feitos urn para o outro. 

Mas quando surge o primeiro problema, voce 
fica abandonado como uma noiva no altar. 

Por isso, antes de voce entrar numa aventura, 
converse com os tecnicos da Victori. 

So a Victori tern easyware: uma linha completa 
de sistemas administrativos que acompanha sua 
empresa em todas as suas necessidades. 

Por tras do easyware, a Victori oferece suporte 
tecnico permanente, que vai desde urn manual 
completo e detalhado para o usuario ate um servigo 
de consultas telefonicas em linha direta com os 
nossos tecnicos. A chamada e gratis. 



E por tras da Victori, voce tern o respaldo de um 
solido grupo de empresas.que garante a continuida- 
de e o aperfeigoamento permanente dos produtos. 

Entre em contato com a Victori. 

Voce vai ver que uma relagao duradoura e muito 
mais tranquila e economica que esses programi- 
nhas inconsequentes. 

Linha direta com os tecnicos da 



VICTORI 



Eletronica Ltda. 

Rio - 294-5497 

Grande S. Paulo - 255-8808 

toll-free (01 1)800-8808 



Rio - R. Vise, de Carandai, 3 
S. Paulo -Av.Joao Pedro Cardoso, 19/49 
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Filiada a 
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su 



_ nscrita na Secretaria Especial de Informatica. 

Pacotes G9Sy Wai0 para micros: Contabilidade, Folha de Pagamento, 
Contas a Pagar, Contas a Receber, Ativo Imobilizado, Mala Direta, Agenda, Controle de 
Corretoras de Seguros, Controle de Midia. Compatibilidade com CP/M R e UNIX R . 



Um programs e uma interface para fazer o CP-500 programar o liga-desliga 
de aparelhos ele'tricos na hora que voce desejar 



Faca de seu CP-500 
uma Maquina do Tempo 



- Linhas 470-520 — Sub-rotina que permite a selecSo de uma 
das duas mensagens ja" citadas, que ficarSb piscando na tela 
com a frequencia de 0,5 Hz, "amarradas" ao contador de se- 
gundos do relogio interne 

- Linhas 540-560 — Sub-rotina para impressSo, a cada minu- 
to, do tempo real na tela. 

A INTERFACE 

circuito associado a porta que controla o acionamento do 
motor do gravador nSo tern capacidade, por razSes 6bvias, de 
manobrar grandes tensOes ou correntes, nSo podendo, em hi- 
potese alguma, acionar diretamente equipamentos alimentados 
pela rede de 1 10 V. Esta hmitagao pode ser facilmente contor- 
nada atravds da construct da pequena interface mostrada na 
figura 2, que permitirS o acionamento de cargas maiores, e 
cujo material pode ser facilmente encontrado em qualquer loja 
de material eletronico (sugiro um passeio as ruas Republica do 
Libano, no Rio, e Santa Ifigenia, em SSo Paulo). 



Dl — Diodo tipo 1N4001 ou equivalente. Atengao para a 

polandade correta! 

Tl - "Rabicho" com tomada macho para 1 10V. 

T2 — Tomada femea para 1 10V, a qua! sera ligada a carga a ser 

acionada. 

Fl — Fusivel miniatura 10A. 

Diversos — Placa e/ou caixa para montagem dos componentes, 

suporte e conector para a bateria de 9V (ou para o "limitador", 

conforme o caso), suporte para o fusivel Fl etc. 

CONCLUSAO 

Espero ter contribui'do com esta aplicagSO para aumentar 
ainda mais a utilidade de nosso CP-500, que me parece ser li- 
mitada apenas pela imaginagSo. Terei prazer em receber noti- 
cias relatando aplicagOes e/ou modificag5es, bem como ajudar 
aos eletricamente menos dotados quanto a montagem da in- 
terface. Escrevam para a RedacSo de MICRO SISTEMAS, que 
procurarei atender a todos dentro de minhas possibilidades. 



Roberto Quito de Sant'Anna 



1 ste programa, de grande utilidade pratica, transforma 

o seu CP-500 (ou qualquer outro micro compativel 

com o TRS-80 Model III) em uma verdadeira Equi- 
na do Tempo. Atrave's dele e mediante o emprego de uma pe- 
quena interface, torna-se possivel ligar e desligar equipamentos 
ele'tricos em tempos predeterminados, com altissimo grau de 
confiabilidade, numa verdadeira integracSo do micro com o 
mundo exterior. 

O segredo desta aplicacSo consiste em utilizar dois recursos 
do micro muito pouco explorados, que sao o relogio mterno e a 
porta de comando do motor do gravador cassete (plugue cinza 

pequeno). A M 

O programa comega por solicitar a hora atual, a hora de ati- 
vacSo e a hora de desativagSo do equipamento, todas no for- 
mat© HHMM de 24 horas (exemplo: 1950, 2300, 0600 etc.). 

Em seguida, sao visualizados na tela tres retangulos (figura 
1) tendo o superior a hora atual (atualizada a cada minuto) e 



A MAQUINA DO TEMPO 

=H0RA ATUAL= 
20:M5 



LI GAR EM = 
22:00 



=DESLIGAR EM= 
05sM5 



FUNCAO DESATIVADA 



Figura 1-0 display do programa 
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os inferiores a hora de ativacSo (esquerda) e desativacSo (di- 
reita). Esta tela permanece durante todo o tempo de utilizacao 
do programa ate* que seja apertada a tecla BREAK. Abaixo dos 
retangulos inferiores aparece uma mensagem que pisca com a 
frequencia de 0,5 Hz, e que sera" FUNCAO DESATTVADA pa- 
ra tempos inferiores a hora de ativacao ou superiores a hora de 
desativagSo, ou FUNCAO ATIVADA, para os demais tempos. 

DESCRigAO DO PROGRAMA 

Embora simples em sua essentia, convdm ressaltar os seguin- 
tes detalhes do programa: 

- Linhas 160-170 - Reserva de espaco string e defimcao das 
strings mais utilizadas. Observe-se com atengao os espagos con- 
tidos em TITS, BS, BBS, FS e LG$,que devemser respeita- 
dos. 

- Linhas 180-240 - Entrada dos tempos e conversao dos va- 

lores. 

- Linhas 250-340 - ImpressSo da tela. 

- Linha 350 - ImpressSo da hora atual na tela, atrave's da 
sub-rotina das linhas 540-560. 

- linha 360 - Acionamento da mensagem piscante apropria- 
da, atrave's da sub-rotina das linhas 470-520. 

- Linha 370 - Teste de zero segundos (minuto "cheio"). Ca- 
so positive sSo feitas as comparacOes necessarias da hora atual 
com a hora de ativacSo ou desativagSo (linhas 390 ou 410), re- 
tornando a sub-rotina de atualizagSo do tempo real em caso de 
nao -coin ciden cda . 

- Linha 400 - AtivacSo da porta que comanda o motor do 
gravador e do indicador de porta ativada (K= 1). 

- Linha 420 - DesativacSo da porta e do indicador (K- 0). 

- Linhas 430450 - Lago fechado que permite, apos desati- 
vada a porta, manter a tela com a hora sempre atualizada e a 
mensagem FUNCAO DESATIVADA piscando. Observe-se que 
este 6 o fim do programa e, por ser um toco semfim, s6 pode 
ser desfeito mediante o acionamento da tecla BREAK. 

MICRO SISTEMAS, novembro/83 




Figura 2 - Esquema da interface 



A descncSo do material € a segumte: 
Jl - Conector femea subminiatura, ao qual sera conectado o 
plugue cinza pequeno que vai ao remoto do gravador. 
Bl — Bateria de 9V (ou o "eliminador" de batena da figura 3). 
£ importante ressaltar que no caso de utilizacSo de bateria, a 
confiabilidade de nossa Maquina do Tempo 6 fungSo direta do 
estado de carga da mesma. 

RL1 — Rett miniatura, que vai possibilitar a comutagSo da car- 
ga desejada. A menos que o leitor pretenda acionar um apare- 
lho de ar condicionado, um aquecedor de agua ou um fogSo 
ele'trico, serS suficiente um rele' de bobina para 9 ou 1 2 V, en- 
rolamento de 500 a lOOOohms e contatos normalmente aber- 
tos para 1 10 V, 3 a 5 amperes. 




Figura 3 - Fonte de alimentacdo simples, que pode ser usada em lugar 
da bateria de 9 V. Os pontos + e - devem ser ligados aos pontos respec- 
tivos da interface da figura 2. 

MATERIAL: 

Fl - Fusivel 1 A 

SI - Chave liga-desliga 

Tl - Transformador (primdrio - rede local; secunddrio - 6 V, 5A) 

Dl - Diodo 1N4007 

Ci - Capacitor 2000Mf, 16 V 



MICRO SISTEMAS, novembro/83 



Roberto Quito de Sant'Anna d Engenheiro de TelecomunicaoSes, tra- 
balhando atualmente como Professor de Informdtica na Academia Mi- 
litar das Agulhas Negras e como Analista de Sistemas na Micro Maxi 
Computadores e Sistemas, ambas em Resende, RJ. 
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' *******KKft***«*»K*«***«ft *««***«**«*»«* N*M***«»*»« 

'****«* A MAQUINA DO TEMPO ****** 

'****«* *K***»«««**»»*««»««««»»«»*»*«»K«*»*N***K*»» 

'« ROBERTO QUITO DE SANT'ANNA * 

'"CAIXA POSTAL 24039 - CEP 20522 - R JANEIRO - RJ» 

'*M«KN«*«K«M«K«NN««M«ff*»*ft«Mft*««*ttM«KMKM*K«M«**KM» 

CLEAR 200:TIT$="A MAQUINA DO TEMPO" 

B*="= ":BB$=" =":F*="FUNCA0 ":LG$=" ATIVADA" 

:DLG$="DESATIVADA" 

CLS:PRINT Q 16. TIT«:PRINT @ 80, STRING»<32, "-" ) 

PRINT (? 197,-ENTRE COM OS TEMPOS SOLICITADOS, TODO 

S NO FORMATO HHMM" 

PRINT @ 321," ":INPUT "HORA ATUAL";HRS 

HH=INT(HRS/100):MM=HRS-HH*100:P0KE 16921 , HH:P0KE 1 

6920, MM 

PRINT @ 513," ": INPUT "HORA DE ATI VACAO" ; LIGA 

PRINT i? 705," ":INPUT "HORA DE DESATIUACAO" ;DESL 

CLS.-PRINT (3 16,TIT«:PRINT I? 80, STRING*< 32, "-" ) 

Z$=STRING$(13."=") : PRINT 154. Z$ 

PRINT e 218."=H0RA ATUAL=^" :PRINT @ 282, Z* 

P=LIGA:GOSUB 580:LIGA$=P$ 

P=DESL:GOSUB 580: DESL«=P* 

PRINT l> 520, Z$: PRINT @ 556, Z$ 

PRINT e 584."= LIGAR EM =": PRINT •} 620 , " = DESLIGA 

R EM=" 

PRINT Q 64B,Z«: PRINT (3 684, Z$ 

PRINT @ 712,B*+LIGA*+BB*:PRINT 748 , B*+DESL*+BBt 

PRINT t> 776..Z*:PRINT 812,Z*:K=0 

GOSUB 540 

GOSUB 470 

IF VAL(RIGHT«(TIME*,2)><>0 GOTO 360 

IF KOO GOTO 410 

IF HTSOLIGA* GOTO 350 

OUT 236.2:K=1 :G0T0 350 

IF HT*ODESL$ GOTO 350 

OUT 236,0:K=0 

GOSUB 470 

IF UAL(RIGHT*<TIME*,2) )<>0 GOTO 430 

GOSUB 540: GOTO 450 

'****«SUBROTINA PARA MENSAGEM PISCANTE***** 

IF K=0 THEN MSG$=DLG*:G0T0 490 

MSG*=LG* 

SEG=VAL<RIGHT*<TIME*,2)) :REST=SEG-INT< SEG/2 ) *2 

IF REST=0 PRINT 920. STRING*(17," "):RETURN 

PRINT 920,F*+MSG$ 

RETURN 

'**«*«SUBROTINA PARA IMPRESSAO TEMPO REAL***** 

HT*=MID*(TIME*,10,5):ZZ«=B*+HT*+BB« 

PRINT 346, ZZ$: PRINT 410, Z* 

RETURN 

'»«*#«SUBROTINA PARA HORAS ATIVACAO/DESATIYACAO 

IF P=0 THEN P*="00:00":RETURN 

IF P<10 THEN P$="00:0"+RIGHT*<STR$(P) ,1) :RETURN 

IF P<100 THEN P*="00:"+RIGHT«<STR$(P) ,2) :RETURN 

IF P<1000 THEN R*=RIGHT*<STR«(P),3):P*="0"+LEFT*(R 

»rl) + ":"+RIGHT$(R$,2): RE.TURN 

R$=RIGHT»<STR$(P),4):P*=LEFT*(R*,2)+"s ,, +RIGHT«(R$, 

2) :RETURN 



m 
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durso! 



• A MICRO'S Processamento de Dados 
promove regularmente cursos de programacad 
BASIC e COBOL. Para o curso de BASIC sao 
utilizados dois microcomputadores Dismac e 
urn NE-Z8000, com hordrio individual para 
treinamento. As turmas sao compostas de, no 
maximo, 20 alunos e todo material didatico 6 
fornecido pelo curso. Maiores informacoes na 
Rua Duque de Caxias, 450, Edit fcfo , Chams, 
sis. 702 e 703, tel: (034) 235-6965, Uberlan- 
dia, MG. 

• A MICRO-KIT esta" promovendo regular- 
mente curso de BASIC para adultos e crian- 
cas, com turmas a tarde e a noite, e especiais 
aos sabados, em va>ios horaYios. Maiores infor- 
macoes na Rua Visconde de Piraja\ 303/210, 
Ipanema ou pelo tel: 267-8291 , RJ. 

• A Metodologla Warnter 6 o tema do curso 
que inaugurara OS Semln^rlos Tdcnicosem In- 
formdtlca — STI, da Servimecdlrigido a geren- 
tes de sJstemas, anallstas de sistemas de um 
modo geral e programadores. Este curso Inau- 
gural serd proferido pelo proprio Jean-Domi- 
nique Warnier (autoridade em Informa'tica da 
Franga) no Cesar Park Hotel, em Sao Paulo, 
de 28/11 a 02/12. Maiores detalhes pelo tel.: 
570-3818, SP. 

• A CompBel promove cursos de Introducao 
aos Microcomputadores, para estudantes de 
nfvel colegial, as 2. as e 4? s feiras ou as 3. as e 
5 as feiras, no horano de 14O0h ou 16:30h, 
carga horana de 20 horas. O curso de BASIC I 
e II e sempre as Z as e 4?s feiras ou 3 as e 5 as 
feiras, 5s 1930h, 24 horas por modulo 
(TK85, HP-85A e Apple II). O Visicalc-Plus 
com tracado de graficos e" as 6 as e sabados, 
com 12 horas/aula (HP85A e Apple II). Infor- 
macoes na Rua Greg6rio Paes de Almeida, 62, 
Vila Madalena, Sao Paulo, tel: (011 ) 65-9857, 
SP. 

• A Filcres estd oferecendo cursos gratuitos 
sobre linguagem BASIC para os usuaVios de 
microcomputadores da linha Proldgica, com 
aulas prSticas e material diddtico gratuito. O 
setor de treinamento da Filcres esta" situado 
na Rua Aurora, 165, tels: (011) 220-5794 e 
222-3458, SP. 



• A Standard Data System Ltda. oferece re- 
gularmente cursos de BASIC e COBOL. Maio- 
res informacoes na Rua Pamplona, 818, 19 e 
29 andares, tels: (01 1 ) 285-5505 e 289-4941 , 
Sao Paulo, SP. 

• O NETC — Nucleo de Ensino de Tecnolo- 
gia e Ciencia esta" promovendo cursos de 
extensao universita>ia, aperfeicoamento, espe- 
cializacao, capacitacao e atualizacao prof issio- 
nal. Sao eles: Software de Teleprocessamento 
(60h); Hardware de Teleprocessamento (45h); 
Computadores e Microcomputadores Digitais 
- Hardware (45h); Hardware MP 8080/85 
(35h); Eletrdnica Digital I - Combinacional 
(60h); Ampliftcadores Operacionais I (50h); 
Amplificadores Operacionais II (40h); Instru- 
mental e Controle I (60h); Instrumentacao 
e Controle II (72h). InformacSes e inscricSes 
na Rua Alvaro Alvim, 27, 2? and., Rio de 
Janeiro, RJ. 

• Apresentar os novos recursos e as facilida- 
des que os micros oferecem na a>ea de Estatfs- 
tica, com aplicacoes prdticas, sao os objetivos 
do Curso de Estatfstica Aplicada que a Divi- 
sao de Computadores e Sistemas do Brasil 
Trade Center estari promovendo no dia 19 de 
novembro. A taxa de inscricao 6 de Cr$ 70 
mil. Informacoes pelos tels: (021) 259-1299, 
259-1499 e 259-1542 ou na Av. Epitaao 
Pessoa, 280, Ipanema, RJ. 

• Introducao a Sistemas 6 o curso que a 
Diacon Informdtica est£ oferecendo aos em- 
presarios e profissionais liberals, com o objeti- 
vo de mostrar o funcionamento de um com- 
putador e seus componentes. Informacoes na 
Diacon, Rua Pedro de Toledo, 943, Vila Cle- 
mentine tel: (011) 572-6168, Sao Paulo, SP. 

• A Accicia promove regularmente curso de 
BASIC e Aplicativos. Maiores informacoes 
na Av. Paulista, 2073, cj. 216, Edifi'cio Horsa 
1 ou pelo tel: (01 1 ) 288-1206, Sao Paulo, SP. 

• CLUCOMP — Centro de Computacao e 
Servicos esta oferecendo curso de BASIC, 
COBOL, FORTRAN, Assembler, e ainda Ope- 
racao e Digitacao. Todos estes com aulas. teo- 
ricas e prdticas, turmas: manna, tarde e noite; 
e especiais aos sabados e domingos. Ini'cio de 
novas turmas todo comeco de mes. Maiores 
informacoes na Rua Bueno, 2239, Ipiranga, 
tel: (01 1 ) 21 5-5625, Sao Paulo, SP. 

• Introducao aos Microcomputadores e 
Linguagem BASIC sao os dois cursos que o 
I BAM estard promovendo de 17/11 a 08/12 e 
de 14/11 a 14/12, respectivamente. Maiores 
informacoes no Largo do IBAM, n9 1 ou pelo 
tel: (021 ) 266-6622, Rio de Janeiro, RJ. 



• A Rio Micro Computadores e Sistemas 
esta" lancando uma novidade no Rio de Janeiro : 
aulas de BASIC onde o professor 6 o compu- 
tador. Sao seis micros DGT-100 disponfveis 
no hordrio diurno e o aluno faz seu prdprio 
horario. O curso tern a duracao de uma sema- 
na, com cinco aulas de 2h30 min de duracao. 
A Rio Micro tambem oferece o curso de 
BASIC das 1900 as 21 30h, com instrutor e 
seis micros DGT-100. Maiores informacoes na 
Rua Visconde de Piraja\ 330, Ij. 314, Ipane- 
ma, tel : 521 -4888, R J. 

• A Compushop esta 1 oferecendo os cursos: 
"AA — 6 Aplicacoes Administrativas" e "VA 
— 6 Visicalc Avancado". O primeiroapresenta 
conceitos fundamentals sobre a utilizacao de 
microcomputadores em tarefas administrati- 
vas, e ser3 realizado de 21 a 24 de novembro, 
de 2 a a 5 a feira, das 18O0 as 21 :00h. O se- 
gundo e um aprofundamento no uso do Visi- 
calc, Super Visicalc, Visiplot e Visitrend, e 
sera realizado nos dias 22 e 23 de novembro, 
3 a e 4 a feira, das 8:30 as 1730h. Maiores in- 
formacoes na Rua Dr. Mario Ferraz, 37, tel: 
(01 1 ) 210-0187, Sao Paulo, SP. 

SEMINARIOS 

• O IBAM — Instituto Brasileirode Adminis- 
tracao Municipal estara" promovendo os se- 
guintes semina>ios: Planejamento e Instalacao 
de I BM 4300, 1 7 a 1 8/1 1 ; Novos Conceitos de 
Organizacao de Arquivos, 23 a 25/1 1 ; Progra- 
macao de Sistemas de Tempo Real, 30/1 1 a 
2/12; Planejamento da Informa'tica na Empre- 
sa, 30/11 a 2/12; Projeto de Sistemas de Pro- 
cessamento Distribui'do, 7 a 9/12; Software 
para os Computadores Nacionais (Analise 
Comparativa), 7 a 9/12. Todos estes semind- 
rios ocorrera"o no Rio de Janeiro e terao como 
hordrio: 830 as 12.O0h e 13:30 as 17O0h. 
Maiores informacoes no Largo do IBAM, n9 1 
ou pelo tel: (021) 266-6622, Rio de Janeiro, 
RJ. 



• Para informar ao leitor sobre os cursos que 
esta"o sendo oferecidos, a revista recolhe in- 
formacoes em dlversas instituicSes ou as rece- 
be pelo correio. Portanto, na"o nos responsabi- 
lizamos por quaisquer alterac5es posterior- 
mente efetuadas por estas instituic5es nos 
programas ou precos 



I ~7^g Computer World lanca o soft que vat transforms 
L^O : seu micro da linha Apple* num eHciente centro de 

* Gestdo Contdbil 



A linha Apple merecia isto 

A Computer World desenuolueu uma 
uerdadeira "Gestdo Contdbil para 
sua empresa". Afinal, criar programas 
disso ou daquilo e simples, projetar 
solucoes compactas, eficientes 
e seguras, ndo. Veja o que ela pode 
fazer por voce: 

Rua Bernardo Jose Sampaio, 138 
Campinas -SP- CEP 13100 
Tel. (0192) 32-4155 
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• Reduz o numero de lancamentos pela metade. debitando e creditando valores 
em suas respectivas contas. simultaneamente. o que elimina qualquer erro no 
Diario. 

• Permite um piano de ate 1 .500 contas. com 200 Historicos Padroes 

(de 35 caracteres cada) que voce mesmo cadastra, e o equivalente a 1 .300 
langamentos contabeis. 

• E o linico que lhe permite (azer lancamentos dia a dia. sem se preocupar com 
a data, pois no fim do mes ele faz dois SORTs: um por data para emissao do 
Diario, outro por conta para emissao do Razao. 

• Emite Balancete de Verificagao, Balanco Patrimonial e Posicao Geral do Piano 
de Contas a qualquer momento. 

• E nao e so isso. Nosso sistema permite que voce crie o seu pr6prio 
Demonstrative de Resultados. onde voce escolhe quais as contas que entrarao 
em sua composicjao. 

• Ainda mais, com ele voce e totalmente auto suficiente. Voce inicializa seus 
disquettes, cria piano de contas e. principalmente, faz a contabilidade de 
quantas empresas quiser. 

'Compalivel com qualquer Compuiador da Linha Apple 1 1 'nitron .\P II. Microengenho. Dactron. Apple II 
Plus. Maxxi, etc I ConfiguraciO minima CPU com •/« Kb. 2 Drives, Impressora Paralela de 132 colunas 
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EGO = 8XlBMPC 



Se voce analisar esse dado, saberd que EGO posso valer 8 vezes mais do que custo. 

EGO sou o unico que pode ter 8 terminals processando ao mesmo tempo. Sou MULTIUSU ARIO. 

EGO sou o mais ecletico e o melhor microcomputador de 16 bits do mercado. EGO opero com os 

sistemas Analix, CP/M - 86 e MS DOS. EGO sou muito socidvel porque posso me comunicar com 

outros computadores, em varios protocolos: EGO, 4341, Ethernet etc. 

EGO falo vdrias linguas: Basic Compilado, Compilador "C", Fortran, Assembler 8088, APL, 

Cobol, Basic Interpretado, Mumps, Pascal, Forth e ADA. 

EGO posso ertderecar diretamente desde 128 Kbytes ate 1 Megabyte. Toda minha memoria 

e protegida por dispositivos de checagem de erros. EGO posso controlar ate 4 discos 

Winchester de 10 Megabytes cada. 

EGO ocupo pouco espaco e EGO posso ser instalado em qualquer ambiente. 

EGO tenho um video de alta resolucdo a cores, o que me da mais recursos 

em aplicacoes cientif icas e ate mesmo nas comerciais. 

EGO jd citei muitas de minhas qualidades. Para que voce possa me conhecer melhor, me procure 

na SOFTEC. O pessoal de Id pode prestar servicos de suporte de software, treinamento 

e manutencdo, porque sao profissionais especializados que me apoiam. Afinal, assim como voce, 

usudrio, EGO tenho o melhor apoio, sempre. EGO espero sua visita Id na SOFTEC. Ate Id. 







Li vai uma boa oportunidade para voce testar sua peripe'cia como artilheiro. 
Ah, e nao se esqueca de colocar seu alvo dentro de uma "macaV... 



alvo atras da montanha 



Rudolf o Horner Junior 



qui apresentamos um programa escrito em BASIC pa- 
ra micro computadores compativeis com o Apple II 

Plus americano. Trata-se de um jogo bastante simples 

que utiliza graTicos de baixa resolucao. Existe um alvo fixo, 
atras de uma montanha, que devera ser atingido por tiros de 
canhao disparados pelo usuario. Este devera definir a velocida- 
de inicial de lancamento do projetil e tambe'm o angulo de in- 
clinacao do canhao. 

Executado o programa, aparecera na tela uma montanha 
marrom contra um fundo azul, tendo ao seu lado direito um 
retangulo negro que e" o alvo a ser atingido. No principio do 
jogo, o usuario recebe 100 cargas de explosive. Cada carga po- 
de fornecer ao proje'til impulso suficiente para que sua veloci- 
dade seja de um metro por segundo. Com o uso destas cargas, 
em sucessivos lancamentos, o atirador devera' atingir seu alvo. 

Para cada disparo, o computador pedira que seja definida a 
quantidade de cargas a ser usada no lancamento e o angulo de 
inclinacao do canhao. Para confirmar o lancamento, basta pres- 
sionar a tecla S. A trajet6ria sera desenhada, e caso o tiro atinja 
a montanha ou saia dos limites do campo, serao emitidas men- 
sagens correspondentes. jogo termina quando o alvo e atin- 
gido (o programa toca Parabens a Voce) ou entao quando o 
numero de cargas de explosivo acaba sem que se tenha alcan- 
cado o objetivo. 

Para elaboracao do programa, foram respeitadas as leis da 
mecanica Newtoniana, no que se refere a bah'stica: 



A = 



V seno (2.0) 
o 



H = 



2 2 

V seno (0 
o 

2.g 



onde, 

• A = al can ce do projetil; 

• H = altura maxima atingida pelo proje'til ; 

• V = velocidade inicial de lancamento; 

• = angulo de in clinacSo do canhao; 

• g = aceleracao gravitacional da Terra (g = 10 m/s 2 ). 



Jogo do Alvo 



1 8 



26 



30 



40 



DATA 1 73 ^ 48 , 1 92 , 1 36 .- 208 -4, 19 
8» "7-9 240 9 8 i 202 , 208 , 246 : . 1 66 , 6 , 
76? 8? 3? 96! FOR A - 768 TO 78 
6: READ F: POKE A,F= NEXT 

GR S HOME : NORMAL : SPEED= 2 
55l COLOR- 15- FOR A == 8 TO 
39: ULIN 8,39 AT A: NEXT : COLOR- 
O: FOR A = 1 TO 38= ULIN 6,2 
2 AT A! NEXT 

COLOR- 18 FOR A ■ 1 TO 4= ULIN 
8,28 AT A: POKE 6,7: POKE 7, 
18: CALL 768: NEXT 

FOR A = 5 TO 38: COLOR* 1- ULIN 
8,20 AT A: POKE 6,7: POKE 7, 
9: CALL 768: F = A - 4: COLOR= 
0: ULIN 8,20 AT F: COLOR- 1 

IF F = '5 OR F ■ 18 OR F = 13 OR 
F = 29 OR F = 34 THEN ULIN 
18,1 8 AT F 

IF CF > 5 AND F < 18> OR CF > 
29 AND F < 34 > THEN PLOT F, 
18 



70 IF CF > 13 AND F < 19!:- OR CF > 
29 AND F < 34> THEN PLOT F, 
18 

30 IF F > 5 AND F < 18 THEN PLOT 
F , 1 5 

9© IF F - 21 OR F = 26 THEN ULIN 

10. 16 AT F 

180 IF F ■ 22 OR F = 25 THEN ULIN 

16.1 7 AT F 

118 IF F = 23 OR F - 24 THEN ULIN 

17.1 8 AT F 

128 NEXT : COLOR* 8! FOR A ■ 35 TO 
38; ULIN 8,20 AT A: POKE 6,7 
: POKE 7, 18! CALL 768: NEXT 

138 UTAB 23: PRINT " M I C R 
O 8 I 8 T E M A 8": 
GOSUB 278: FOR F = 1 TO 258 
: NEXT : GOSUB 278 

148 HOME : COLOR= 7: FOR A = 1 TO 

38: HLIN 1,38 AT A: NEXT : COLOR* 
8: A = 12: F as 26': AL = 38 

150 HLIN A,F AT AL:AL ■ AL - 1:A 
= A + RND C1>3F = F - RND 
Cl>a IF F - A > 1 THEN 158 

168 L = 29 + 7 * RND < 1 ) : COLOR* 

O: HLIN L - 2,L + 2 AT 38: HLIN 
L - 2,L +■ 2 AT 37:CA = 188 

178 IF NOT CCA > 8> THEN HOME 
: UTAB 23: PRINT TABC 5>"U0 

CE PRECISA TREINAR MAIS . 

": FOR A = 12 TO 2 STEP - 1 
: POKE 6, A: POKE 7,128: CALL 
768: NEXT : TEXT : HOME i END 

ISO UTAB 22: INPUT "DEFINA ANGUL 
DE DISPARO: «£A*sAN ■ UAL 
CA#>9 IF AN < 8 .'OR AN > 98 THEN 
178 

198 UTAB 22: PRINT "REST AM "5 CAS 

" CARGAS DE EXPLOSIUO ! ! ! " ! INPUT 
"DEFINA UELOCIDADE DE D I SPAR 
OS ""A$:U8 = UAL. CA#>! IF U 
8 < 8 OR CA < U8 THEN 198 

288 HOME : UTAB 21: PRINT "ANGUL 
O I ""AN-" GRAUS": PRINT 
" UELOC I DADE : " I U8 1 " METROS.-S 
EGUNDO": PRINT •■ PRINT "DISP 
ARAR ':.S.-N>? "5! GET A*: IF "a 
$ = "N" THEN HOME. : GOTO 17 
8 

218 UTAB 23: PRINT 8PC< 68 >« UTAB 
i:CA - CA - U8:F = 8:X - 1:V 
- 38: POKE 6,255: POKE 7,18 
8: CALL 768: A - AN * .017452 

220 IF V > 36 AND X > L - 2 AND 
X < L + 2 THEN HOME 8 UTAB 
22« PRINT TABC 7>"p A R 
A B E N S ! ! ! " : GOSUB 2 
70: FOR T = 8 TO 1580: NEXT 
: TEXT : -HOME a END 

230 IF X > 39 OR V > 39 OR V < 8 

THEN HOME S UTAB 23: PRINT 

TABC 8 > "ESTE TIRO UOCE PERD 

EU!M": POKE 6,255: POKE 7,2 

55: CALL 768: CALL 768: CALL 





768! HOME a GOTO 178 


240 


IF SCRN-:: X,V> a 8 THEN HOME 




: UTAB 23: PRINT TAB< 5>"T0 




ME CUIDADO COM A MONTANHA! ! ! 




"I POKE 6,255: POKE 7,255: CALL 




768: CALL 768: CALL 768: HOME 




: GOTO 178 j 


250 


COLOR* 88 PLOT X,V: POKE 6,1 




: POKE 7, 18: CALL 768: COLOR* 




7: PLOT X,V 


268 


F ■ F-+ .2:X = X + l:V ■ 38 - 




p :+: I..I0 :+: 9 1 H < A > + 4 * F A 




2 : GOTO 228 


278 


POKE 6,123: POKE 7,188: CALL 




768: POKE 7, 188= CALL 768: POKE 




6,118: POKE 7,188: CALL 768: 




POKE 6, 123: POKE 7- .1.88: CALL 




768: POKE 6,92: POKE 7,188= CALL 




768: POKE 6,97: POKE 7,188: CALL 




768: RETURN 




f5 



Rudolfo Horner Junior cursa CiSncia da Computagao na Unicamp e 4 
sdcio da Potential Software, firma que produz programas especiais 
para microcomputadores em Campinas, SP. 
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Monk Langa 

Sistema Gerador de Programas 



A Monk, a dois anos vem produzindo software para mi- 
cros, lanca uma inovacao para o mercado nacional, trata-se 
do sistema"DATAMANAGER" que 6" um gerenciador de ban- 
co de dados (SGBD).* Usavel como gerador de programas apli- 
cativos, e criado para ser utilizado por pessoas nao iniciadas 
em computacSo. O usuario na"o precisa conhecer a linguagem 
Basic ou Sistema Operacional, precisara apenas analisar seu 
problema e organizar uma solucao pr£tica, com o manual do 
programa, que e° super completo, gerar seus programas apli- 
cativos. 

Exemplos de a>eas que \a estao utilizando o sistema "DA- 
TAMANAGER" — com grandes resultados: — Controle e ges- 
tlo de estoque, Contas a pagar e receber, Controle e adm. de 
vendas, Folha de pagamento, Controle de pedidos e fatura- 
mentos, Mala direta, Criacao e manutencao de cadastros e 
bancos de dados, Adm. de cl micas me'dicas, denta>ias e escri- 
t6rios de advogacia, imobilia>ia (adm. de contratos, im6veis, 
condom fnios) e em const rutoras (controle de custos de obras), 
Fazenda Agropecua>ia. 

Os programas podem interfacear com outros programas 
em Basic, arquivos do VisiCalc e SuperScripsit. Este super 
programa roda nos micros CP500, NAJA e TRS-80 III, com 
48K — 2 disk-drives e uma impressora opcional se preferir 
obter listagens impressas. 

Demonstracoes e maiores detalhes nos 66 revendedores** 
Monk por todo pais, ou diretamente a Monk, Rua E. 

Este programa foi testado na revista Micro Mundo do m6s de Agosto. n° 6 
* * Relacao dos revendedores na revista Micro Sistemas do mis de Agosto, n° 23. 



ifTIOnK micro informatica ltda. 



R. Augusta. 2690 - 2° And. - L. 31 8 e 324 
Tels.: 280-0163 e 852-2958 - SP 



monk, 

o software que faz voce ficar 

feliz por ter um micro. 




Entre no ritmo sabendo seu atual estado ffsico, emocional e intelectual com 
este programa em duas versoes: uma para o TK82-C e outra para o DG T- 100 



Biorritmo no micro 



Francisco Luiz Farias Bezerra 



75 
80 


INPUT M 

PRINT M, , , "ANO DO BIORRITMO 


195 

m " ; 




■ SiSlIgMV&KiBMltf DI A S PR IT 1 ('()■ 1 




I ? " 






200 


FOR K=2 TO 63 


, 85 


INPUT A 




205 


LET LS=SIN ((F*2/X)*PI) 


90 


CLS 




210 


PLOT K,20+18*LS 


! 95 


GOSUB- 270 




215 


IF LS<>0 THEN GOTO 2 30 


100 


LET DS=N-L 




220 


PRINT AT 21,16+JD;INT (K/2) j 


105 


LET X=23 




225 


LET JD=JD+3 


110 


let A$="gfligg" 




230 


LET F=F+.5 


115 


GOSUB 155 




235 


NEXT K 


120 
125 


LET X=28 




240 
245 


FOR K=5 TO 30 STEP 5 
PRINT AT 12,K;K 


LET Ai = "W«WllfiWWI" 


130 


GOSUB 155 




250 


NEXT K 'j 


135 
140 
145 


LET X=33 




255 
260 
265 


PAUSE 4E4 

CLS 

RETURN 


IfiaiJV&SH i N T h L H CT UA LiH 


GOSUB 155 


150 


GOTO 65 




270 


IF M<3 THEN GOTO 290 


155 


PRINT "BIOR. " " " ;A$;" " " D 


275 


LET MM=M+1 


E:";M; "/"A 




280 


LET AA=A 


! 160 


FOR K=0 TO 6 3 




285 


GOTO 300 


165 


IF K>39 OR K<1 THEN GOTO 


17 


290 


LET MM=M+13 


5 






295 


LET AA=A-1 


170 


PLOT 0,K 




300 


LEiT N=INT (365.25*AA)+INT ( I 


i 175 


PLOT K,20 




30.6*MJ^)+D-621049 


180 


NEXT K 




305 


RETURN 


185 


LET F=DS-(INT (DS/X) ) *X 




310 


SAVE "BIORRITMO" 


190 


LET JD=0 




315 


RUN 



j entre os diversos ritmos da vida, este programa esco- 
lhe, para tracar as curvas, os mais importantes: FISI- 

CO, de 23 dias; EMOCIONAL, de 28 dias; INTELEC- 
TUAL, de 33 dias. Cada ritmo atravessa duas fases distintas: 
POSITIVA — quando a curva esta" acima do seu eixo central; e 
NEGATIVA — quando a curva se encontra abaixo do mesmo 
eixo. As fases invertem-se na metade de cada ciclo. Os dois ini- 
ciais, tan to da fase positiva como da fase negativa, sao conside- 
rados cn'ticos. 

Desenvolvido em linguagem BASIC, este programa esta 
apresentado em duas versOes: uma para o TK82-C e outra para o 
DGT-100. Entretanto, pode ser rodado em outros micros, des- 
de que sejam efetuadas as devidas modifica?5es, possibilitan- 
do ate o seu emprego pelos que nao dispoem de expansao de 
memoria. 

Vejamos agora como o programa opera. Carregue-o e exe- 
cute GOTO 1 ; devera aparecer no video a seguinte configura- 
cao: 



PARA O CALCULO DO BIORRTTMO 
TECLE SUA DATA DE NASCIMENTO 
DIA? 



Entao, o que for sendo solicitado deve ser acompanhado de 
NEW LINE. MES DO BIORRITMO? e ANO DO BIORRITMO? 

solicitam, respectivamente, o mes e o ano desejados para o cdJ- 
culo do biorritmo. Aguarde um instante e aparecerao no video 
as curvas (sendides) de cada um dos ciclos sequencialmente. 

Terminada a exibicao de um dos ciclos na tela, digite NEW 
LINE para obter o ciclo seguinte. Depois do ultimo ser exibi- 
do, teclando-se NEW LINE, o micro se reprograma solicitando 
outro MES/ANO BIOR? para novos calculos, sem necessidade 
da introducao, novamente, da data de nascimento. 
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Francisco Luiz Farias Bezerra e" Engenheiro Eletricista da Fundacao Nu- 
cleo de Tecnologia Industrial — NUTEC, com sede em Fortaleza, e esta" 
atual mente prestando servicos na cidade de Crato, no Ceari. Ele tern 
como hobby a elaboracao de programas, tan to de uso geral como espe- 
cffico, em Matema'tica e Eletricidade, e~ radioamador e possui uma 
calculadora HP-41CV, um TK82-Ce um CP-500. 





Biorritmo no TK 


1 


REM AUTOR: LUIZ BEZERRA I 


5 


FAST 


10 


PRINT TAB 7;"B I O R R I T \ 


M O" 




15 


PRINT AT 4,0; "PARA O CALCUL 


O DO 


BIORRITMO" , "TECLE SUA DATA \ 


DE NASCIMENTO." 


20 


PRINT ,,"DIA? "; 


25 


INPUT D 


30 


PRINT D, , ,,"MES? "; 


35 


INPUT M 


40 


PRINT M, ,, , "ANO? "; 


45 


INPUT A i 


50 


PRINT A 


55 


GOSUB 270 


1 60 


LET L=N 


65 


LET D=l 


70 


PRINT , , , , "MES- DO BIORRITMO 







Biorritmo no DGT-100 



1 CLS:PRINT" BIORRITM 0" :PR INT:PR INT" Dentre os diversos 
ciclos da vida ,este programa esco -lhe para tracar as curvas os mais importante 
s r itmos:":PRINT"FISICO dc 23 DIAS, EMOCIONAL de 28 dias"; 

2 PRINT", INTELECTUAL de 33 d i as.":PRINT"Apos o termino da exibicao de um dos cic 
los na tela tecle qual -quer tecla para obter o ciclo segu i nt e.":PRINT"Depo i s do 

ultimo ser exibido o programa solicita outro MES/ANO sem necessidade de inseri 
r novamente a "; 

3 PRINT"sua data de nasc i ment o. ":PRINT" E entao, maos a obra , ver i f i que com 
o esta para voce este mes e BOA SORTE ! ! ! ! !":FORQ=OT02000: AS="":A%=INKEY%: IFA5> 
<""THEN4 ELSE NEXTO 

A CLS:CLEAR300:PRINTCHR4<23) 

5 'PRG. BIORRITMO / AUTOR: LUIZ BEZERRA 

6 DS=STRINGl<64,"*">:PRINTDi 

8 PRINT" BIORRITM 0":PRINT:PR INTDS 

10 PRINT"PARA CALCULO DO BIORRITMO : ":PRINT 

20 PRINT"TECLE SUA DATA DE NASCIMENTO:": INPUT"( D i a ,Mes, Ano) : " ;D,M, A 

30 60SUB224:L=N:D=1 

10 PRINTCHR5<23):INPUT"MES,AN0 DO BIORRITMO";M, A 

50 60SUB224:DS=N-L:CLS 

60 X=23:A5= "F I S I C ":G0SUB90 

70 X=28:AS="E MOCIONAL ":GOSUB90 

80 X=33:A5="I NTELECTUAL ":G0SUB90 

90 PRINT" BIORRITMO ";AS;" DE: ";M;"/";A 

100 FOR K=0T0127 

HO IF K>44 OR K<4THENG0T0i30 

120 SET(0,K):SET(1,K) 

130 SET(K,24) :NEXTK 

140 F=DS-<INT(DS/X))*X:JD=0 

145 PI=3. 14159265358 

148 PRINT3960,"D IAS CRITICOS :"; 

150 F0RK=4T0127 

160 LS=SIN(<F«2/X>*PI):SET<K,24-20*LS) 

170 IF LS< >0THEN2O0 

180 PRINTS (988+ JD) , INT(K/4) ; : J0=JD+6 

200 F=F+0.25:NEXTK 

210 FORK =5 TO 30 STEP 5 

220 PRINTa510+2*K,K ; :NEXTK 

222 XS="":Xl=INKEY$:IFX*=""THEN222 

223 CLS:IFX=33THEN40:RETURN 

224 IF M<3 THEN G0T0240 

225 MB=M+l:AB=A 
235 G0T0250 

240 MB=M+13:AB=A-1 

250 N=INT(365.25*AB)+INT(30.6*MB)+D-621049 

260 RETURN 



m. 
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— Cursos de programagao com 
APOSTILA PROPRIA e AU- 
LAS PRATICAS em diversos 
MICROCOMPUT ADORES 

— Todas as principals marcas 
de MICROCOMPUTADORES 
pelo menor preco com credi- 
to direto em ate 24 MESES 

— Programas prontos ou por 
encomendas tanto de jogos 
quanto comerciais 

MICROCENTER INFORMATICA LTDA. 

Rua Conde.de Bonfim, 229 - Lojas 320 e 
312 — Galeria Cinema III - Tel. : 228-0593 

— Cep 20520 - Tijuca - Rio de Janeiro - RJ 



Peixes, Libra, Gemeos, nao importa o signo. Entre com 
o programa que a HP "sai" com o horoscopo 



HP-41CV e o horoscopo do dia 



Joao Lucio Duarte 



I ue tal bancar o Astrologo com seus amigos? Pegue 
sua HP-41CV SIZE 086 e rode estes dois programas. 
Depois, lance a data da consulta (dd,mm) seguida da 
data de aniversano da pessoa (tambem dd.mm). Pronto: a cal- 
culadora ira" consultor os astros e revelar como estd a saude, o 
amor, niimero e cor de sorte, alem de calcular o signo de seu 
cliente (as instrucoes de operacao estao na figura 1). 

Adicionalmente, voce podera comandar algumas mensagens 
especiais. Sao elas: SEU TELEFONE (codigo 5); ACHO VOCE 
UM AMOR (codigo 6); VOCE ESTA PRECISANDO CASAR- 
SE (codigo 7) e VOCE ESTA CHATO DEMAIS (c6digo 8). Pa- 
ra aciond-las basta, no modo USER, pressionar a tecla 2 +,es- 
tando no visor o(s) codigo(s) da mensagem escolhida. No caso 



do codigo 5, digite o niimero do telefone de seu cliente e este 
numero ficara a disposicao no registrador 79 para futuras 
"consultas." 

Aproveite tambem para mostrar sua criatividade ampliando 
o banco de informacSes - registradores 01 a 78 (figura 2) -, 
ou ainda criando outros e deixando-os disponiveis em cartoes 
magneticos. 



Joao Lucio Duarte 6 formado em Administracao de Empresas e estu- 
dante de Logosofia.Trabalha na area de Recursos Humanos, onde utiliza 
suaHP-41CV. 



PASSOS 


instruqOes 


DADOS 


TECLA 


VISOR 


01 


Carregue os programas "HOR" e 

"REG" 


- 


- 


- 


02 


Preencha os registradores 01 
a 78 , execu tando programa "REG" 


Var i ave 1 1 
Variavel 2 


xeo_"reg" 

R/S 
R/S 


REG NR 1 
REG NR 2 

REG NR 3 


03 


Inicie o programa (em USER) ou 
comande (l+) para mensagens 


CO D 1 GO 


XE0_"H0R" ou 
Z + 


DIA.MES hoje 
DIA.MES HOJE 


0*4 


Indique data de consulta 
(ex. 20 ABR = 20,04) 


dd , mm 


R/S 


ANIVERSARIO? 


05 


Informe data aniversario 
(ex. 5 MAI = 5,05) 


dd , mm 


R/S 


( INFORMAQflES) 


06 


Repetir passos 3,4 e 5 para 

obter mensagens especiais. 
Nao querendo usa-las, basta 
repetir passo n? 5, pos i - 
cionado au toma t i camente . 









01 


• BOA 


4o 


• STATUS 


02 - 


• 0TIMA 


41 


- PRAZQ 


03 


• CACO 


42 


- 0CIO 


04 


- RUIM 


^3 


- AVI SO 


05 • 


■ FRACA 


44 


■ V00 


06 • 


■ FORTE 


45 


- SUAR 


07 • 


• de Ago 


46 


- PENSAR 


08 - 


FTGADO 


kl 


- CRIAR 


09 - 


f rs 1 co 


48 


- AJUDAR 


10 - 


VISUAL 


k3 


- FOLGAR 


1 1 - 


RITMO 


50 


- ACATAR 


12 - 


VTC 1 


51 


- fErias 


13 • 


REGIME 


52 


- MUDAR 


\k - 


FRIO 


53 


- PIORAR 


15 - 


CAL0R 


54 


- MAL 


16 - 


BEB IDA 


55 


- BEM 


17 - 


VENTO 


56 


- DURAR 


18 - 


GELADO 


57 


- FIXAR 


19 - 


FARRA 


58 


- DANAR 


20 • 


AQUCAR 


59 


- SALVAR 


21 ■ 


J0IA 


60 


- BRANCO 


22 - 


CALMO 


61 


- PRETO 


23 ■ 


• ESPERE 


62 


- AZUL 


24 ■ 


• FOSSA 


63 


• VERDE 


25 • 


- BRIGAS 


64 


• ROSA 


26 


- LUTE 


65 - 


• MARRON 


27 


- JUIZO 


66 ■ 


• C INZA 


28 


- VOLTAR 


67 ■ 


■ BEGE 


29 


- FUGIR 


68 • 


ROXO 


30 


- PENAR 


69 ■ 


• CREME 


31 


- SABER 


70 ■ 


VIAGEM 


32 


- SUMIR 


71 ■ 


NEGRO 


33 


- GELAR 


72 - 


CONTAS 


3k 


- GAMAR 


73 - 


AZAR 


35 


- CHEFE 


Ik - 


ALTVIO 


36 


- COLEGA 


75 - 


PERIGO 


37 


- ATRASO 


76 - 


CHANGE 


38 


- PAPO 


77 - 


FELIZ 


39 


- CARGO 


78 - 


DRAMAS 



Figura 2 - Tabela de registradores 
do banco de informacoes 





Listageml: 


Horoscopo 






001 LBL T HOR 


062 


T "TRABALHO** 


123 


STO 79 


184 


GTO 00 


002 CF 29 


063 


XEQ 15 


124 'OBRIGADO 


185 


LBL 04 
T ARIES 


003 FIX 


064 


T CUIDADO COM O 


125 


XEQ 15 
GTO T ABC 
LBL T CB 
r ACHO VOCE 


186 


004 T HOROSCOPO 


06 5 


35 


126 


187 


20 


005 XEQ 15 


066 


STO 84 


127 


188 


GTO 00 


006 T CIENTIFICO 


067 


10 


128 


189 


LBL 05 
T TOURO 


007 XEQ 15 


068 


XEQ 16 


129 


XEQ 15 
F UM AMOR 


190 


008 Individual 


069 


PSE 


130 


191 


20 


009 XEQ 15 


070 


T VOCE PRECISA 


131 


XEQ 15 
GTO T ABC 
LBL T DC 
r VOCE ESTA 


192 


GTO 00 


010 T DIA,MES "HOJE 


071 


45 


132 


193 


LBL 06 , 
T GEMEOS 


011 PROMPT 


072 


STO 84 


133 


194 


012 STO 81 


073 


7 


134 


195 


20 


013 LBL T DIA 


074 


XEQ 16 


135 


XEQ 15 
T PRECISANDO CASA 


196 


GTO 00 J 


014 T ANIVERSARIO ? 


075 


PSE 


136 


197 


LBL 07 
T CANCER 


015 PROMPT 


076 


T NUMERO SORTE 


137 h R-SE 


198 


016 T * SEU SIGNO * 


077 


XEQ 15 


138 


XEQ 15 


199 


21 


017 AVIEW 


078 


100 


139 


GTO T ABC 
LBL T PD 
T VOCE ESTA CHATO 


200 


GTO 00 


018 STO 80 


079 


STO 83 


140 


201 


LBL 08 


019 FRC 


080 


XEQ T RNDM 


141 


202 


LEAO ! 


020 EEX 2 






14 2 H DEMAIS 






021 X 


082 


PSE 


143 


XEQ 15 
GTO T ABC 
LBL T RNDM 


204 


GTO 00 


022 STO 00 


083 


PSE 


144 


205 


LBL 09 


023 RCL 80 


084 


T '*SUA COR" 


145 


206 


VIRGEM 


024 INT 


085 


XEQ 15 


146 


RCL 82 


207 


22 


025 EEX 2 






147 


9821 


208 


GTO 00 




















STO 84 










027 ST + 00 


088 


10 


149 


,211327 


210 


'LIBRA 


1 028 RCL 80 


089 


XEQ 16 


150 


+ 


211 


22 | 


029 RCL 81 


090 


PSE 


151 


FRC 


212 


GTO 00 


030 X 


091 


T — LAR — 


152 


STO 82 


213 


LBL 11 
T ESCORPIAO 


031 STO 82 


092 


XEQ 15 


153 


RCL 83 


214 


032 XEQ IND 00 


093 


T 
'VAI 


154 


X 


215 


21 


033 T "* SAUDE •• 


094 


52 


155 


INT 


216 


GTO 00 


034 XEQ 15 


095 


STO 84 


156 


STO 81 


217 


LBL 12 








157 


RTN 






036 STO 84 


097 


XEQ 16 


158 


LBL 15 






038 XEQ 16 


099 


PSE 
T «« FUTURO ** 


159 
ISO 


AVIEW 
PSE 


221 

222 


INT 

X < Y ? 


039 T CUIDE DO 


100 


XEQ 15 


161 


CIA 


223 


GTO 13 


040 8 






162 


RTN 






041 STO 84 


102 


STO 84 


163 


LBL 16 


225 


ST - 80 


; 042 6 






164 


STO 63 
XEQ T RNDM 




GTO 01 


043 XEQ 16 




XEQ 16 


165 


227 


LBL 00 


,j 044 T EVITE 






166 


STO 81 






045 14 




UM BOM DIA 


167 


RCL 84 


229 


INT 


046 STO 84 






168 


+ 






047 7 




GOSTOU ? 


169 


STO 85 


231 


GTO 13 


048 XEQ 16 






170 


ARCL IND 85 






049 PSE 




LBL ABC 


171 


AVIEW 






050 T *** AMOR *** 




FS?C 08 


172 


RTN 






051 XEQ 15 






173 


LBL 01 


235 


STO 80 


052 21 






174 


T CAPRICORNIO 


236 


GTO IND 00 


053 STO 84 






175 


20 






054 7 


115 


FS?C 07 


176 


GTO 00 




LBL 13 


055 XEO 16 

056 T BEM VAI 




GTO DC 


177 


LBL 02 
T AQUARIO 


239 


AVIEW 


117 


FS?C 05 
GTO T J J 
GTO T DIA 


178 


240 


PSE 


057 28 


118 


179 


19 


241 


PSE 


058 STO 84 


119 


180 


GTO 00 


242 


RTN 


059 7 


120 


LBL T J J 


181 


LBL 03 


243 


LBL A 


060 XEO 16 


121 


T SEU TELEFONE 


182 


T PEIXES 


244 


SF IND X 


061 PSE 


122 


PROMPT 


183 


20 


245 
246 


GTO T HOR 

END j 



Figura 1 - Instrucoes 
78 









Listagem 2: 


Programa 


"REG" 








01 • 


• LBL T REG 


04 ■ 


STO 


07 - 


ARCL 00 


10 - AST0 IND 00 


13 ■ 


• T ACAB0U 




02 


• FIX 


05 ■ 


• LBL A 


08 - 


AON 


11 - ISG 00 


14 ■ 


• AVIEW 




03 " 


• 1 ,078 


06 • 


• T REG NR 


09 - 


PROMPT 


12 - GTO A 


15 • 


• END 


■ 
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Aqui vao a/guns truques de protecao de programas, especialmente para os 
usuarios do TRS-80 e compatfveis. Nao os deixe escapar\ 



O programa invisivel 



Quern e bom ja nasce feito. 



O Micro Engenho 2 e o computador 
profissional, de uso pessoal, mais completo do 
Brasil. 

E essa virtude ja vem de bergo, porque o Micro 
Engenho 2 e construido em tres m6dulos 
destacaveis: o visor, a unidade de processamento 
eoteclado. 



Isso facilita a sua colocagao nas mais 
diversas posigoes. 

E o Micro Engenho 2 e totalmente compativel 
com dois respeitadissimos profissionais 
americanos: o Apple* II Plus e o Apple* lie. 

Junte-seaosbons. 

Profissional com profissional se entende. 



Newton Braga Junior 



Ulllllllllllll 




CI omo ja foi dito, nao existe sis- 
tema de protecao de programas 
_ totalmente infalivel, mas a co- 

pia ou a alteracao podem ser dificulta- 
das com o uso de certos comandos. Urn 
exemplo ppde ser o ATTRIB, que pode 
protege r um programa contra a copia ou 
listagem. Vejamos: ATTRIB nome: d 
(a,ACC= b, UPD= c, PROT= x), onde: 

• nome — Nome do programa. 

• d - Numero do drive onde se encon- 
tra o disquete com o programa. 

• b — Senna de acesso ao programa. Se 
nao for especificada logo apos o nome 
do programa, quando no seu carrega- 
mento ou execucao. o programa na"o se- 
ra acessado ou executado. 

• c — Senna de protecao. Esta senha 
esta muito ligada a condicao de prote- 
cao PROT. Somen te mencionando-se es- 
ta senha e que pode ser alterado o 
PROT. Ela nao aparece no diretorio do 
disquete. 

• PROT — Condicao de protecao do 
disquete, podendo ser: EXEC - somen- 
te para execucao; READ - leitura (car- 
regamento e execucao); WRITE — lei- 
tura, execucao e gravacao.FULL — pro- 
tecao (zero). programa esta total- 
mente acessivel. 

• a — Condicao de visibilidade do dire- 
tono do disquete. 

No sistema TRSDOS ou DOS500, o 
formato do ATTRIB 6 exatamente igual 
ao que apresentamos no initio do arti- 
go. No NEWDOS ou DIGDOS, sao duas 
as alteracoes: em primeiro lugar, no lu- 
gar das , (virgulas) usam-se parenteses; 
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em segundo lugar, a condicao a no 
TRSDOS e I para invisivel e N para na"o 
invisivel, e no NEWDOS 6 INV para in- 
visivel e VIS para visivel. 

Vamos ver no exemplo: ATTRIB 
TESTE/BASfl, INV,ACC= MICRO ,UPD 
= COMPUTADOR, PROT= EXEC. 
programa TESTE/BAS no drive tera o 
seu nome invisivel no diret6rio do 
disquete. Para ser acessado, e' preciso sa- 
ber a senha de acesso MICRO (por 
exemplo, RUN TESTE/BAS.MICRO), 
e para ser mudada a condicao de prote- 
cao, a senha COMPUTADOR tern que 
ser mencionada. 

Se voce esquecer a senha de acesso 
ou de condicao de protecao, ACC e 
UPD, respectivamente, nao tern proble- 
ma... Use o utilitario SUPERZAP do 
NEWDOS ou DIGDOS para ter acesso 
ao disco e mudar diretamente na posi- 
cao em que as sennas sao guardadas. 

A senha-mestre do disquete esta po- 
sicionadg diretamente em cima do no- 
me do disquete, em seu lugar proprio de 
armazenamento no diretono do disque- 
te. Mais precisamente, na linha acima, 
nos ultimos dois bytes. A condicao de 
visibilidade e' armazenada no primeiro 
byte da linha onde aparece o nome do 
programa. Ja na linha inferior ao nome 
do programa, voce vai encontrar, nos 
dois pnmeiros bytes, a senha ACC, e, 
nos proximos dois bytes, a senha UPD. 

As senhas sao codificadas em hexade- 
cimal, o que nao se torna um problema 
se voce utilizar a opcao DPWE do 
SUPERZAP. que e codificar uma pala- 
vra, em hexadecimal, usando dois bytes. 



No TRSDOS, o diret6rio se encontra 
na trilha 17. A senha-mestre do disque- 
te, no setor 1 ; e as senhas ACC, UPD e 
visibilidade, a partir da trilha 1 7, setor 3. 

No NEWDOS, voce tern que usar a 
funcfo DFS do SUPERZAP, que tern 
como funcSb receber o nome do arquivo 
ou programa que se deseja acessar, e ain- 
da procurar onde se encontra armazena- 
do o programa para ser apresentado. 

Se for usado o comando AUTO no 
disquete, o programa sera imediatamen- 
te carregado e executado sempre que. for 
dado um RESET na maquina. Mas se vo- 
ce ficar pressionando a tecla RETURN 
ou ENTER ao ser dado o RESET, o 
AUTO perde a funca"o momentaneamen- 
te, e com isso voce tern acesso ao siste- 
ma. NEWDOS ou DGDOS possui uma 
caracten'stica muito interessante:a tecla 
RETURN ou ENTER pode ser can eel a - 
da momentaneamente sempre que for 
executado o RESET. Para isso, voce tern 
que usar o comando SYSTEM e alterar 
os parametros AB e BD. 

No exemplo SYSTEM password: 
driveAB=Y,BD=N, a tecla RETURN 
ou ENTER sera cancelada apenas en- 
quanto o RESET estiver acionado, apos 
o que a tecla volta a sua condicSo nor- 
mal de operacSo. 



Newton Braga Junior e" programador COBOL, 
FORTRAN e, BASIC. Atualmente 4 Gerente 
de Sistemas da loja Rio Micro Computadores 
Ltda., RJ. 
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Admi ravel publico, iremos apresentar agora um numero especial 
de magia para os micros da linha Sinclair 



Sete truques magicos 



Ccom estes programas simples, 
mas de grande magia, voce e 
seu micro serao os astros da 

festa. Os truques sao, na verdade, uma 
divertida bnncadeira, mas irao surtir 
um grande efeito. 

Digite cada um deles, experimente os 
resultados, arquive-os e entao reuna os 
amigos ou aguarde aquela festinha em 
familia para apresenta-los com habilida- 
de e ate um certo toque de mistdrio. 

Os programas estao ai, o show fica 
por sua conta... 



As cartas na mao 



10 REM AS CARTAS NA MAO - A. FA 
LEIRO - NIG 

20 CLS 

30 PRINT TAB 4;"*** AS CARTAS 
NA MAO ***" 

40 PRINT ,,"TOME UM BARALHO E 
DIVIDA-0 EM TRES MONTES COM UM 
A TERCA PARTE DE CARTAS EM CADA 
UM. " 

50 PAUSE 4E4 

60 PRINT , , , , "ESCOLHA UM DOS M 
ONTES E CONTE SUAS CARTAS. DEP 
OIS COLOQUE-0 NAMAO ESQUERDA. " 

70 PAUSE 4E4 

80 PRINT ,", , , "SOME OS DIGITOS 

DA CONTAGEM DAS CARTAS E RETIRE, 

DO MONTE QUE ESTA NA MAO ESQU 

ERDA, UM NUMERO DE CARTAS IGUAL 

A ESSA SOMA E DEIXE-AS DE LADO 

90 PAUSE 4E4 



82 



Antonio Faleiro 



100 PRINT ,,,,"QUANTAS CARTAS V 
OCE AINDA DESEJARETIRAR DA MAO E 
SQUERDA? DIGITE ENTAO ESSA QUANT 
I DADE . " 

110 INPUT A 

120 CLS 

130 PRINT AT 5,0; "NA SUA MAO SO 
BROU (SOBRARAM) " , , , , 9-A; " CARTAS 



Abracadabra 



10 REM ABRACADABRA - A. FALEIRO 
- NIG 
20 CLS 

30 PRINT "*** ABRACADA 
BRA *** 
40 PRINT ,,,,"PEGUE O BARALHO 
E FACA 3 MONTES COM 7 CARTAS EM 
CADA UM,DE FACES PARA BAIXO. " 
50 PAUSE 4E4 

60 PRINT , , , , "NUM DOS 3 MONTES 
, OLHE E MEMO- RIZE UMA CARTA, 
SEM DESARRANJAR A ORDEM DO MESMO 

70 PAUSE 4E4 

80 PRINT , , , , "TOME ESSE MONTE 
E COLOQUE-0 EM CIMA DE UM DOS O 
UTROS DOIS. O MONTE QUE REST 

OU COLOQUE EM CIMA DE AMBOS." 
90 PAUSE 4E4 

100 PRINT , , , , "ORDENE AS CARTAS 

DO MONTE, UMA AUMA, ALTERNADAME 
NTE, FORMANDO 3 NOVOS MONTES." 

110 PAUSE 4E4 

120 CLS 

130 PRINT "PROCURE O MONTE NO Q 
UAL SE EN- CONTRA A CARTA ESCOL 
HIDA, SEM PREJUDICAR A ORDEM D 
AS CARTAS. COLOQUE ESTE MONTE P 
OR CIMA DE UM DOS OUTROS DOIS E 

O QUE RES- TOU POR CIMA DE AMBO 
S." 

140 PAUSE 4E4 

150 PRINT ,,,,"REPITA O PROCESS 



O DE ORDENACAO DAS CARTAS EM TR 
ES NOVOS MONTES. VERIFIQUE EM QUA 
L MONTE ESTA A CARTA ESCOLHIDA 
E O COLOQUE POR CIMA DE UM DOS O 
UTROS DOIS E O RESTANTE POR CIM 
A DE AMBOS . " 

160 PAUSE 4E4 

170 CLS 

180 PRINT "AGORA VOU IMPRIMIR, 
LETRA POR LETRA, A PALAVRA MAG 
ICA" ,,,"AB RAC ADAB RA",, 
,"A CADA LETRA QUE SURGIR VOCE D 
E-VERA RETIRAR UMA CARTA DE CIt'A 
DO MONTE E A DEIXAR DE LADO." 

190 PAUSE 300 

200 LET A$="A BRACADABR 

A" 

210 PRINT AT 15,0; 

220 FOR A=l TO 21 STEP 2 

230 PRINT TAB A,A$ (A) ; 

24 PAUSE 100 

2 50 NEXT A 

260 PRINT , , , , , "VOCE TEM NAS MA 
OS A CARTA QUE MEMORIZOU. . . " 

270 STOP 



Adivinhe a idade 
e o numero do sapa to 



10 REM NUMERO DO SAPATO E IDAD 
E - A. FALEIRO - NIG 

20 CLS 

30 PRINT "ADIVINHACAO: NUMERO 
DO SAPATO E IDADE . " 

40 PRINT ,,,,,, "MULTIPLIQUE O 
NUMERO DO SAPATO QUE CALCA POR 
DOIS . " 

50 PAUSE 4E4 

60 PRINT , , , , "SOME CINCO AO TO 
TAL ENCONTRADO . " 

70 PAUSE 4E4 

80 PRINT , , , , "MULTIPLIQUE POR 
CINQUENTA ESSE TOTAL." 
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90 PAUSE 4E4 

100 PRINT , , ,,"SUBTRAIA DO TOTA 
L ENCONTRADO O ANO EM QUE VOCE 
NASCEU." 

110 PAUSE 4E4 

120 PRINT ,,,, "DIGITE O RESULTA 
DO." 

130 INPUT A 

140 CLS 

150 LET A=A+1733 

160 PRINT AT 5,0; "NUMERO DO SEU 

SAPATO = ";INT (A/100) 

170 PRINT AT 10,0; "SUA IDADE = 
";A-(INT (A/100) ) *100 ; " ANOS " 

180 PAUSE 4E4 

190 RUN 



Contato com o UFO 



10 REM O CONTATO - A. FALEIRO - 
NIG 

20 CLS 

30 PRINT " *** CONTATO COM O 

UFO ***" 

40 PRINT ,,,, "DIGITE O NOME DE 
6 PESSOAS . " , , , "SOMENTE UMA DELA 
S FARA CONTATO COM O UFO . " 

50 DIM A$(6,15) 

60 FOR N=l TO 6 

70 INPUT A$(N) 

80 PRINT , ,A$ (N) 

90 NEXT N 

100 CLS 

110 PRINT AT 16,0;" 



;TAB X-2 



120 FOR X=2 TO 16 
13 PRINT AT 6,X;" 5 

- a^^H";TAB x-i;" mm" 

14 PAUSE 50 

150 NEXT X 

160 FOR M=9 TO 15 

170 PRINT AT M,17;"""' '" 

180 PAUSE 30 
190 NEXT M 

200 PRINT AT 1 3 , 1 7 ; "EBOtB" ; T AB 18 
;'W;TAB 17; "H H" 
210 LET A=INT (RND*6)+1 
220 PRINT AT 17,17;A$(A) 
230 PRINT AT 21, ; "<ENTER> PARA 
OUTRO CONTATO . " 
240 PAUSE 4E4 
250 GOTO 100 



Adivinhe o numero 



10 REM NUMERO DE 3 ALGARISMOS 
- A. FALEIRO - NIG 
20 CLS 

30 PRINT "ADIVINHACAO: NUMERO 
DE TRES ALGARIS 

MOS" 

40 PRINT ,,,,,, "ESCREVA UM NUM 
ERO DE TRES ALGARISMOS." 
50 PAUSE 4E4 

60 PRINT ,,,,"INVERTA ESSE NUM 
ERO." 

70 PAUSE 4E4 

80 PRINT , , , ,"SUBTRAIA O MENOR 
DO MAI OR. " 

90 PAUSE 4E4 
100 PRINT , , , , "DIGITE O ULTIMO 
ALGARISMO DO RESULTADO DA SUB 

TRACAO." 
110 INPUT A 

120 PRINT ,,,,,,"0 TOTAL DA SUB 
TRACAO E: " ; 
130 IF A=0 THEN PRINT "000" 
140 PRINT 9-A; "9", -A 
150 PAUSE 4E4 
60 RUN 
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Adivinhe as cartas 



10 REM O PAR DE CARTAS ESCOLHI 
DAS - A. FALEIRO - NIG 
20 CLS 

30 PRINT "ADIVINHACAO: O PAR D 
E CARTAS ESCOLHI 

DAS." 

40 PRINT ,,,, "COLOQUE AS CARTA 
S DO BARALHO, COMAS FACES PARA CI 
MA, EM 4 FILAS NA SEGUINTE ORDE 
M:" 

50 PRINT ,,"1 FILA - DAMA DE O 

UROS,AS DE PAUS,3 DE COP AS, AS 

DE ESP ADAS, 9 DE PAUS . " 

60 PRINT ,,"2 FILA - ' 7 DE COPA 

S,6 DE PAUS, 7 DE OUROS,2 DE ESPA 

DAS, 3 DE OUROS" 

70 PRINT ,,"3 FILA - REI DE OU 
ROS,5 DE ESPA-DAS REI DE COP AS , 6 
DE ESP ADAS DAMA DE COP AS . " 

80 PRINT , , " 4 FILA - VALETE DE 
OUROS, 5 DE PAUS VALETE DE COP 
AS, 2 DE PAUS 9 DE ESP ADAS" 
90 PAUSE 4E4 
100 CLS 

110 PRINT "ESCOLHA UM PAR (DUAS 
CARTAS COM O MESMO VALOR) ." 
120 PAUSE 4E4 

130 PRINT ,,,,"DIGITE JUNTOS OS 
NUMEROS DAS FILAS ONDE SE AC 

HAM AS CARTAS DOPAR QUE VOCE ESC 
OLHEU, EM ORDEM CRESCENTE." 
140 INPUT B 

150 PRINT , , , , "O PAR QUE VOCE E 
SCOLHEU E:", , , , 

160 PRINT ("DAMAS" AND B=13)+(" 
ASES" AND B=11)+("TRES" AND B=12 
)+("NOVE" AND B=14)+("SETE" AND 
B=22)+("SEIS" AND B=23) + ( "REIS" 
AND B=33)+("VALETES" AND B=44)+( 
"CINCO" AND B=34)+("DOIS" AND B= 
24) 
170 PAUSE 4E4 
180 RUN 



Soma Magica 



10 REM SOMA MAGICA - A. FALEIRO 
- NIG 
20 CLS 

30 PRINT TAB 6;"*** SOMA MAGIC 
^ * * * " 

40 PRINT ,,,, "ESCREVA UM NUMER 
O QUALQUER. " 
50 PAUSE 4E4 

60 PRINT ,,,,"SOME A ESSE NUME 
RO O QUE LHE SEGUE (EX: SE ES 
COLHEU 13 SOME COM 14)." 
70 PAUSE 4E4 

80 PRINT ,,,,"SOME NOVE AO RES 
ULTADO. " 

90 PAUSE 4E4 
100 PRINT ,,,,"DIVIDA O TOTAL P 
OR DOIS." 
110 PAUSE 4E4 

120 PRINT , , , ,"SUBTRAIA O PRIME 
IRO NUMERO QUE VOCE ES COLHEU DO 
RESULTADO DADO PELA DIVISAO." 
130 PAUSE 4E4 
14 CLS 

150 PRINT "ESCOLHA UM NUMERO QU 

ALQUER E SOME-O AO TOTAL ENCO 

NTRADO. EM SEGUIDA DIGITE O NUM 

ERO QUE VOCEESCOLHEU E LHE DARE I 

O TOTAL QUEVOCE ENCONTROU." 

160 INPUT A 

170 PRINT AT 10,6;" > ";A+5 

180 PAUSE 4E4 — 

190 RUN /» 



Rodada MS 

convida 

radioamadores 

Sintoniza essa, macanudo: MICRO 
SISTEMAS amplia o espaco dc radio- 
amador ligado em computacao. Olha 
so os temas: 



• orientacao de antenas 
e calculo de distancias 

• registro de 
comunicados (logging) 

• confeccao automatica 

de cartoes QSL 

• calculo de 
filtros e antenas 

• determinacao de 
freqiiencias de trabalho 



E outros. Participe da Rodada 
MS enviando sugestoes, programas 
e comentanos sobre qualquer as- 
sunto ligado ao radioamadonsmo na 
era do microcomputador (ou sim- 
plesmente o seu QRA-QTH) para: 



TWo ro 

Slstemas 



Rua Visconde Silva, 25. Botafogo, 
CEP 22281. RJ. Estamos aguardando! 



Cess- 



MICROS, 

VIDEOS, GAMES & CIA. 

Computadores: 

Polymax, Unitron, Prol6gica, 

Micro Digital, Sysdata. 



• OFERTA ESPECIAL • 

"MAXXI" 

Videos: Philco e Sharp 

Televisores Sanyo 



Video Games: Dynacon, 
Atari. 

OFERTA: Cartuchos para Atari 
a prego de custo. 
Suprimentosi Fitas, Disquetes, 
Formularios. 



• Super Oferta • 

Disquete Memorex 5 1/4 -Cr$ 5.000,00 
CURSOS: Basic I, Basic II 

Inscricoes Abertas 



Rua Estados Unidos, 2141 

Tel. 852-8290 / 257-3852 / 231 -1 1 73 



cI!gS> 





Se voce tern pequenas 
rotinas eprogramas 
utilitarios realmente 
uteis tomando poeira 
em seus disquetes ou 
fitas cassetes, antecipe-se 
aospiratas e irate de 
divulg£-los. Envie-ospara 
a REDACAODA MICRO 
SISTEMAS — SECAO DICAS: 
Rua ViscondeSilva, n°25, 
Botafogo, RIODEJANEIRO-RJ, 
CEP22281. 

Nao se esque^a de dizer 
para qual equipamento 
for am desenvolvidos. 
Desta forma, sua descoberta 
pod era ser utilpara muitos 
e muitos, em vez de 
desmagnetizar-se com o 
tempo em suas fitas 
e disquetes... 



Linha SINCLAIR 



Urn NEXT diferente 

Faca, com esta dica, a instrucao NEXT operar como 
um contador simples, economizando muitos bytes, e tor- 
nando a listagem indecifrdvel para os "curiosos". pro- 
cesso e simples (mas muita atenc^o nas linhas 320 a 
350): quando o limite do loop e atingido, NEXT I conti- 
nua contando os valores mas nao retorna ao initio do 
loop. Neste exemplo, apos I = 9, NEXT I passa a corres- 
ponder a LET I =1+1. 

STEP 10 



Linha TRS 



100 FOR Y=15 TO 


25 S 


110 FOR X=15 TO 


37 


120 PLOT X,Y 




130 NEXT X 




14 NEXT Y 




200 FOR X=15 TO 


37 S 


210 FOR Y=15 TO 


25 


220 PLOT X,Y 




230 NEXT Y 




24 NEXT X 




3 20 FOR 1=0 TO 9 


330 PRINT AT 11 


,ll;i 


34 NEXT I 




350 GOTO 330 





STEP 22 



Carlos Maurfcio G. Weinstein — SP 



Linha TRS 



CalculodoCPF 



10 INPUT"ENTRE COM O CPF: ";N$:M=0 
: 0=0 :FORI=lT09 :L=VAL (MID$ (N$ , I , 1) ) 
:M=M+L*(11-I) :0=0+L:NEXT:GOSUB20:M 
=M+0+2*K: J=K:GOSUB20:PRINT"CIC: " ; 
N$ ; STR$ (J) +STR$ (K) : RUN 
20 K=11*(1+INT(M/11))-M:IFK>9THENK 
=0 : RETURNELSERETURN 



Exemplo: 



RUN 

ENTRE COM O CPF: ? 
CIC: 508190828 2 1 
ENTRE COM O CPF: ? 
CIC: 252527208 
ENTRE COM CPF: ? 
CIC: 755781408 8 2 
ENTRE COM O CPF: ? 



508190828 



252527208 



755781408 



Mdrio Roberto B. de Souza - SP 



Pise a -pise a 



A mensagem contida em AS 
sera" impressa centrada na ultima 
linha da tela, fazendo um inte- 
ressante efeito visual do tipo 
"letreiro luminoso", e com a 
vantagem de nao deslocar o 
cursor de sua posicao corrente. 
Use esta dica como sub-rotina, 
tendo AS como argumento de 
entrada que pode variar a cada 
chamada: 



5000 CLSrDEFINT A-Z 

5010 A$="APERTE QUALQUER TECLA PARA CONTINUAR" 

5020 DEFFNX(A$,I)=ASC(MID$(A$,I,1) ) 

5030 N=LEN(A$) : INI=16320+ (64-N) /2 :N1= (N-l) 

5040 FOR 1=0 TO Nl/2:POKE INI+Nl-I ,FNX (A$ ,N-I) 

5050 POKE INI+I,FNX(A$,I+1) :NEXT 

5060 FOR 1=1 TO 200:NEXT 

5070 IF INKEY$<>"" GOTO 5120 

5080 FOR 1=0 TO Nl/2:POKE INI+Nl-1,32 

5090 POKE INI+I,32:NEXT 

5100 FOR 1=1 TO 200:NEXT 

5110 IF INKEY$ = ,,M GOTO 5030 

5120 END 



Roberto Quito de Sant'Anna — RJ 



Linha SINCLAIR 



Inicializando variaveis 

Esse pequeno programa demonstra a inicializacao de 
20 variaveis (de A a T), dentro de um loop, cada uma 
recebendo um passo do mesmo. Isso pode ser feito em 
qualquer parte do programa, com qualquer variavel, e 
com qualquer valor. A unica restricao € conhecer a posi- 
cao (endereco) da variavel dentro do programa e enta"o 
fazer um POKE nesse local com o oodigo da nova varid- 
vel. 

Digite, rode, e teste esse programa com PRINT A, 
PRINT B, PRINT C, PRINT D etc.. 

10 FOR Z=l TO 20 
20 LET A=Z 
30 POKE 16538, Z+38 
40 NEXT Z 

Andre" Alves Jardim — GO 




Linha SINCLAIR 



Compa eta Qao de progra mas 

Quando estamos escrevendo um programa e muito 
comum termos um INPUT e, logo apos, uma serie de 
desvios condicionais, como por exemplo: 



INPUT U$ 

IF U$="aaaa" THEN GOTO ... 
IF U$="bbbbbbb" THEN GOTO 
IF U$="ccc" THEN GOTO 

IF U$="dd" THEN GOTO 



Mas isso pode ser reduzido, substituindo-se por: 

INPUT U$ 

LET X= *(.U$= M aaaa") + 

*(U$="bbbbbb") + * (U$="ccc") +. 

...*(U$="dd") 

IF X THEN GOTO X 

Renato Degiovani — RJ 



Alinhe os mimeros 



Marcelo Silva Santos - SP 



Para alinhar, pela direita, a impressao de numeros, em 
vez de usar... PRINT A, use : 
. . . PRINT TAB 31 - LEN STRS A: A 
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Veja como, de maneira bem simples, voce pode evitar desligar a fonte de a/imentacao 
quando quiser desligar sua UCP. Mas cuidado com sua RAM... 



Reset: desligando 
a UCP do micro 



Manuel Maria C. P. de Castello 



R 



eset 6 um pequeno macete que nos permite desligar a 
UCP - sem ser preciso desligar todo o micro - sem- 
pre que precisamos refazer um programa inteiro ou 
apagar qualquer coisa no video, fi bom lembrar, no entanto, 
que todo cuidado 6 pouco, pois ao ser pressionado o Reset, 
tudo o que estiver armazenado na mem6ria RAM sera" perdido. 
No nosso caso, repito, s6 6 usado para evitar o desligamento 
da fonte de alimentacSo sempre que se queira recomecar um 
programa. 

Para colocar o Reset no micro basta por o pino 26 para Ne- 
gativo Terra, utilizando uma chave para ON/OFF Reset (chave 
de campainha). A figura 1 mostra como esta modificaca"o deve 
ser feita (e o melhor 6 que voce pode adaptar o Reset em qual- 
quer microcomputador). 



Manuel Maria Costa Pinto de Castello tern diversos cursos nas a"reas de 
Eletrdnica Digital, Microprocessadores e Linguagens de Programacao. 
Manuel e" portuguSs de nascimento, estando radicado no Brasil desde 
1975, e tern como hobby montagens eletrdnicas relacionadas com 
audio, controle e computacSo. 
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u PROCESSADOR 
Z80 



Pino 26 



220K 



RESET 



B 

chave 

tipo v|° 
»'o 



campainha 



lyF 



K, 



Figura 1 - Esquema para o Reset 




CURSO PRATICO DE BASIC — INTENSIVO 

COM APLICAQOES REAIS PARA EXECUTIVOS 

E ESTUDANTES — TURMAS DE 6 ALUNOS 

APENAS 5 SEMANAS C/2 AULAS SEMANAIS 

TESBI - Rua Guilhermina, 638 - Tel.: (021) 501-3297 * 249-3166 



CAMPUSWARE 

O maior e melhor catalogo em livros de computacao! 
Aqui, uma selecao especial para voc£. 




COMO LIDAR COM O COMPUTADOR 

Henry C. Lucas Jr. 
1983- 160 pp. 

Informal bate-papo com o lei tor, que responde 
as perguntas feitas pelo pessoal leigo envolvido 
no processamento de informacoes. Os conselhos 
e sugestoes abordam situacdes retiradas de am- 
bientes comerciais do dia-a-dia, e cobrem tanto 
os procedimentos basicos de operacao, quanto 
as aplicacoes criativas dos microcomputadores. 



JwgidiiCwhorwiiwfilho 

BASIC 

PMAHCMBKSMIS 




BASIC PARA MICROS PESSOAIS 

Jorge da Cunha Pereira Filho 
1983 - 232 pp. 

Importante apresentacao da Linguagem Basic, 
de forma extremamente didatica. Cada capitulo 
traz um guia de estudo dirigido e muitos exer- 
cicios, fornecendo ao leitor as informacoes para 
a perfeita utilizacao em microcomputadores 
pessoais, bem como os de teclado piano. 




IMPLANTACAO DE MICROS E 
MINICOMPUTADORES COMERCIAIS 
P. A. Knight 
1983- 120 pp. 

Urn guia seguro para os responsaveis pela insta- 
lacao de sistemas de computacao, este livro ser- 
vira de ajuda nos aspectos mais dif fceis e fun- 
cionara como uma Lista de Verificacao para 
que nada seja esquecido. 




WILSON T. PRICE 






MICROCOiVIPUTADORES PARA 
APLICAQOES COMERCIAIS 
W. Barden Jr. 
1983 -260 pp. 

Conheca um microcomputador e suas aplicacoes 
comerciais antes de se decidir por sua escolna e 
aquisicao: componentes dos sistemas comerciais 
de pequeno porte, perigos a evitar, vocabulario 
espocializado e ate mesmo um pequeno curso 
de linguagem basic. 



Fundamentos de 
Processamento de 

DADOS 



FUNDAMENTOS DE 
PROCESSAMENTO DE DADOS 
Wilson T. Price 
1983 -200 pp. 

Uma introducao concentrada e condensada ao 
processamento de dados que procura reduzir a 
quantidade de informacoes a respeito, preser- 
vando apenas os conceitos mais importantes e 
os itens basicos mais significativos. 



Guia de Linguagan de 
CQMPUTADORES 




Harry LHefris Jr. 
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EOITORA CAMPUS j 



GUIADE LINGUAGENS 
DE COMPUTADORES 

Harry L. Helms Jr. 
1983- 122 pp. 

Se voce precisa ou quer saber as diferencas en- 
tre COBOL, FORTRAN e outras linguagens, es- 
te livro e para voce. Cada capitulo apresenta 
uma conhecida linguagem de programacio; o ul- 
timo contem um dicionario de palavras-chave. 



TfTULOS E PREQOS 

1 • COMO LIDAR COM O COMPUTADOR 

CrS 4.030,00 

2 • BASIC PARA MICROS PESSOAIS 

CrS 6.240,00 

3 • IMPLANTACAO DE MICROS E 

MINICOMPUTADORES 
COMERCIAIS 

CrS 5.390,00 

4 • MICROCOMPUTADORES PARA 
APLICAQOES COMERCIAIS 

CrS 7.440,00 

5 • FUNDAMENTOS DE 

PROCESSAMENTO DE DADOS 

CrS 6.210,00 

GUIA DE LINGUAGENS DE 
COMPUTADORES 

CrS 4.210,00 



CAMPUSWARE 

FA£A AQUI SEU PEDIDO 

Assinale abaixo o(s) numero(s) correspondente(s) a(s) publicacao(oes) que deseja receber: 
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2 


3 


4 


5 


6 



Assinale a sua opcao de compra: 

LJ Cheque nominal a ATI-Editora Ltda. N9 Banco 

Atencao: Neste caso, faca o cheque com 10% de desconto sobre os precos mencionados e 
deixe o porte por nossa conta. 
I I Reembolso Postal 
Envie o seu cupom ainda hoje para: 
ATI-Editora Ltda. 
Rua Visconde Silva, 25 
22281 Botafogo - Rio de Janeiro - RJ 

Nome 

Enderepo 

CEP Cidade Estado 
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Atencao : Precos validos por tempo limitado 



elasstficBcJris Qufef 



EQUIPAMENTOS 

• Vendo CP-200 em 6timo esta- 
do dev!do ao pouqufssimo uso, 
por apenas Cr$ 165 mil. Tratar 
com Joao das 12:00 as 13:00h 
pelotel: (01 1)570-4046. 

• Vendo Micro NE-Z8000 com 
expansSo de 16 K em estado de 
novo, por Cr$ 100 mil. Tratar 
com Ricardo, Av. R. G. do Sul, 
544, Divindpolis, MG, CEP 35500, 
Cx. Postal 158. 

• Vendo Modem Conencisa 
MPC 12, naembalagem.Tel.:711- 
3072, Cristina, Niter6i, RJ. 

• Vendo uma HP-25, cientfflca, 
programavel, com 6tlma conserva- 
gao. Tratar em horario comercial 
com Mauro, tel.: 24-3566/R : 299, 
Porto Alegre, Rio Grande do Sul. 

• Vendo urn TK82-C com ex- 
pansSo de 16 K de RAM, acompa- 
nhado de varlos jogos, entre eles: 
Defensores, Monstro das Trevas, 
Simulador de Vdo, etc. Tern seis 
meses de uso e acompanha ma- 
nual e caixa original. O preco 6 de 
Cr$ 100 mil. Tratar com Sdrgio 
Lufs da Silva, na Av. Conselheiro 
Nefoias, 710, Santos, SP ou pelo 
tel.: (0132) 35-1125, em horarto 
comercial. 

• Vende-se um microcomputa- 
dor Apple II Plus de 48 Kbytes, 
linguagem Apple Soft BASIC, 
equipado com cartao de lingua- 
gem BASIC de 16 K. Um monitor 
marca Sanyo, mod. VM4509, uma 
impressora Apple Silentype, um 
Disk Drive Apple, todos os ma- 
nuals do fabricante, jogos ; joys- 
tik e programas para Iniciantes. 
Tratar pelos tels: 221-5755 e 
221-2039 ou pela C. Postal 266, 
Recife, PE. 

• Vendo um acelerador de hard- 
ware para CP-500 ou TRS-80 Mo- 
delo III, com tela antiglare. Tra- 
tar com Rorian pelo tel: (011) 
240-7244, Sao Paulo. 

• Vendo uma impressora EPSON 
X-80 com F/T. Tratar com Ro- 
berto, a noite: (021) 239-1865, 
Rio. 

• Compro TK 82-C, com expan- 
sSo de 16 K. Tratar com Osvaldo 
pelos tels: (0192) 31-1873 (duran- 
te o dia) e (0192) 31-9099 (a noi- 
te), Campinas, SP. 

• Vendo um TK 82-C, com ex- 
pansa"o, joystick, gravador manual, 
mais de 50 programas, livros, re- 
vistas, cataMogos de cabos. Tudo 
por CrS 150 mil. Tratar com Re- 
nato ou Maurfcio pelo tel: (011) 
543-0095, Sao Paulo, SP. 

• Vendo um TK 82-C, com ex- 
pansao e varlos incrementos pelo 
preco de Cr$ 100 mil. Ofereco 
fitas como brinde. Tratar com 
Mauricio pelo tel : (01 1 ) 493-3322. 
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SOFTWARE 

• Vendo ou troco os programas 
para TK, NE e CP, em fita: TK- 
Man, Krazy Kong (versao do Don- 
key Kong, com trfis estigios) e 
outros. Escrevam para Gilberto 
Gaigalas, Rua Guaxinduva, 707, 
Santo Andre, SP, CEP 09000. 

• Troco ou compro programas 
relacionados com Medlcina. Car- 
los Maurfcio GiesbrechtWelnstein. 
Cx. Postal 14.532, Sao Paulo, SP, 
CEP 03698, tel: 21 7-0241. 

• Compro programas para o 
TK82-C, principalmente jogos, se- 
jam em fita ou em livro. Os inte- 
ressados devem enciar relacao dos 
programas disponfveis para Ro- 
berto Gibello, Rua Cel. Jovinia- 
no Brandao, 459, Modca, Sa"o 
Paulo, SP, CEP 03127. 

• Desejo trocar programas de jo- 
gos versSo 2 K com usua'rlos do 
TK/NE/Sinclalr. Tratar com 
Adriana Sampaio, Jardim Sul Bra- 
sfl, 110, Bairro Trindade, CEP 
88000, Florianbpolfs, SC. 

• Vendo jogos para Apple ou 
compativels. Tratar com Francis- 
co pelo tel: (011) 832-5131, Sao 
Paulo. 

DIVERSOS 

• Compro o numero seis da re- 
vista MICRO SISTEMAS, desde 
que em bom estado. Pago tres ve- 
zes o preco da banca. Cartas para 
Pedro S. Nicolletti. UFPB/CCT/ 
DSC Cx. Postal 0030-58.100, 
Campina Grande, PB. 

• Vendo os seguintes livros, por 
metade do preco de capa, em d6- 
lares oficiais: Computer Technics 
Hand Book - Ward TAB U$ 18; 
6801 — Hardware Reference Ma- 
nual — Motorola U$ 24; e Micro- 
processor Interfacing — TAB U$ 
17. Forneco xerox do esquema do 
Apple II; TRS-80 I; Interface para 
48 K; Interface para Floppy disk 
(linha TRS-80); Interface tipo 
Centronics; Interface controlado- 
ra de disquetes para linha 6502 
da Rockwell (AIM-65); esquema 
do AIM 65; Rockwell. Despesas 
postais inclufdas. Tratar com En- 
rique Ferri. Rua Fiacao da Saude, 
128/103, CEP 04144, Sao Paulo, 
tel: (011) 247-4400, r. 335. 

• Troco numeros de fevereiro e 
marco da Revista Byte, pelos nu- 
meros de abril e maio deste ano, 
em bom estado. Os exemplares de 
que disponho estSo em excelente 
estado. Tratar com Francisco Au- 
gusto, Cx. Postal 523, CEP 66000, 
Belem, PA. 

• Vendo os exemplares da revis- 
ta MICRO SISTEMAS do n? 1 ao 
n? 25, por Cr$ 16 mil. Ofereco 
um exemplar da revista Byte co- 
mo brinde. Erwin Eulner, tel: 
(011) 543-5971. 



• Gostaria de entrar em contato 
com possuidores de equipamentos 
compatfveis com o CP-500, para 
troca de informacoes, programas e 
jogos. Tratar com Alexandre 
Farias, Av. Conselheiro Aguiar, 
3645/602, Recife-PE, CEP 50000. 

• Procuro pessoas interessadas 
em fundar um Clube do Sinclair 
aqui em Salvador. Isidoro. Cartas 
para Rua Joao das Botas, 4, apto. 
802, Salvador, BA; ou telefone 
para: 235-0721. 

• Possuo um CP-300 e gostaria 
de comunicar-me com usuarlos de 
micros compatfveis para intercam- 
bio de informacoes e programas 
em Assembler ou BASIC. Adilson 
Soneghett Santos, Rua Joa"o da 
Cruz, 400, Praia do Canto, Vi- 
tbrla, ES. 

• Gostaria de entrar em contato 
com possuidores de TK's, para 
troca de id^ias e programas na 
a>ea me"dica. Luiz Alberto Loss, 
Rua Julio de Castilhos, s/n9 , 
Nova Roma, Antonio Prado, RS. 

• Sou possuidor de um Texas 
TI99-4A e de um TRS-80 Color 
Computer e estou interessado em 
trocar informacoes, ideais, progra- 
mas, fitas cassete, livros e revistas 
com possuidores destes micros. 
Cartas para Paulo Roberto Ceot- 
to, Rua Cyro Lopes Pereira, 922, 
apto. 304, Ed. Duque de Alba, 
Jardim da Penha, CEP 29000, 
Vitbria, ES. 



• Gostaria de formar uma elite 
de pessoas que ten ham o Kaipro 
II para trocar software e informa- 
coes. Escreva para James Phillips 
na Av. Mai. Camara, 160, edf . Or- 
ly, 1826, RJ, tel.: 240-9628. 

• Procuro possuidores de JR 
Sysdata para obter contatos e for- 
mar um clube. Forneco esquemas 
do TRS-80 Modelo I e Apple II 
Plus. Escrevam para Enrique Her- 
nandez Ferri. Rua FiacSo da Sau- 
de, 128/103, Sao Paulo, SP. 

• Disponho de um DGT-100 e 
gostaria de entrar em contato com 
pessoas que se interessem em tro- 
car idelas, experltinclas e progra- 
mas de jogos e utlltt^rios compatf- 
veis com esse micro. Ten ho varia- 
dos programas em BASIC e em 
linguagem de maquina. Tratar 
com Ivone T. Dutra, Rua Paulo 
Gomes, 653, Curitiba, Parana. 

• Desejo entrar em contato com 
pessoas que possuam um DGT- 
1 00 para troca de Ideilas e progra- 
mas em BASIC e em linguagem de 
maquina. Escrever para J. F. da 
Silva, Rua Gal. Osbrio, 1031, si. 
106, CEP 13100, Campinas, SP, 
tel.: (0192) 86537. 

• Gostaria de entrar em contato 
com usua"rios do TK, NE, CP e ZX 
para troca de programas (aplicati- 
vos e jogos) e informacoes. Ro- 
berto Liles Machado, Rua Santa 
Cruz, 936, Pelotas, RS, CEP 
96100. 







^ erro 








Na materia Um programs para radioamadores, 

MS n9 22, Julho/83, pagina 64, devem ser feitas 
as seguintes corregSes no programa: 

• linha 132: substituir por 132 INPUT ER$ 

• incluir a linha 134: 134 IF ER$="ER"THEN 
CLS:GOTO 43 

• corrigir a linha 140 para: 140 IF LEFTS 
(ER$,1)="N"THEN GOTO 8000 

Na materia Resta 1 - Desafio no PC1211, MS 
24, setembro/83, pagina 32, sepao Conversao, 

substituir as linhas 60 e 150 do programa por: 
60:R=INT N-INT A: IF R =0 THEN 500 
150:IF R=0THEN510 
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n bits e Bins 

COMPUTADORES 



• VENDAS 

• ASS. TECNICA 
ESPECIALIZADA 

• PROGRAMAS 

• DISKETTES 

• FITAS 

• SERVICES 

• CURSOS DE BASK 

• FORMULARIOS 



CONSERTOS EM 24 HORAS 

(COM GARANTIA) PARA 

O CP-500 e DGT-100 



EM SAO CONRADO 

Estrada da Gavea, 642 

Lj. B Tel.: 322-1960 



COMPUTADOR 



"CONTABILIDADE 
E DIVERSOS" 

I VOL. Programas em lin- 
guagem "BASIC", Aplica- 
Sdes completamente rcsolvi- 
das. TK-82 C, TK-85, NE 
Z8000, SINCLAIR Z X 81. 
Quantidades - TEL.: 239-4264 
Varejo — Av. Afrank) Melo 
Franco, 1 70 Lj. B. 

LEBLON 

BANCA JORNAL — Av. 
Ataulfo Paiva Esq. R. Carlos 
Goes — Leblon 
PRECO CrS 3.900,00 
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HS 

Computadores e 
Sistemas Ltda. 



Revendedor BRASC0M 
Microcomputador BR1000M: 
1 a 6 terminals MULTIUSUARI0 
De2,4a384Mbemdisco 
linpressoras de 100 CpS a 600 Lpm. 
SOFTWARE: Contabilidade, 
Administragao de Pessoal, 
VENDA E RESERVA DE INGRESS0S 
Contas a receber/Pagar, 
OPEN MARKET, 
Faturamento e outros. 



Rua das Marrecas. 25S/1001 
Tel.: 262-0697 - ligue HS 

Rio de Janeiro - RJ 



m.5. Services 



J PRO JED ATA 

PROJETOS E SISTEMAS EM PROCESSAMENTO DE DADOS LTDA. 

OFTWARE DISPONIVEL P/TRS-80 

MOD. II SHUMEC; POLYMAX 

E MICROS NACIONAIS C/ CP/M: 

Contabilidade c/Centro de Imobiliaria, Condominio, 



Custo, Folha de Paga- 
mento, Controle de Esto- 
que, Controle de Bouti- 
que, Mala Direta, G)n- 
trole Bancario, Mercado 
Financeiro, Fluxo de Cai- 
xa, Administragao Finan- 



Estatistica de Vendas, Vi- 
sicalc. Banco de Dados. 

SERVICOS 
DE BUREAUX: 



Financeiro, Fluxo de Cai- Contabilidade, Folha de 

xa, Administragao Finan- Pagamento, Controle de 

ceira, Contas a Pagar/ Boutique, Estatistica de 

Receber, Administragao Vendas, Condominio. 



Rua Barao de Mesquita, 7 12- A Andarai 
CEP 20540 — RJ — 258-7599/273-8387 



MICROIDEIA 



SOFTWARE P/TK 82 C • TK45 - Cf 200 

Cassate Pre^o/ORTN 



— Controle oe estoqua 


i 


— Contas a pagar/raceber 

— Fluxo de Cafea 




4 


— Mala direta 


4 


— Cadastre de cllentes 


4 


— Processador de lextos 


2 


— Controle bancario 


2 


— Contabilidade domestlca 


2 


— Agenda teleldnica 

— Fitoteca 


2 


2 


— Orcamento domestlco 


2 


— Histograma Qeral 






4 


— Reserva de consult as 


6 


JOGOS A 1 ORTN 




— Alien Blaster - Bombardeio ■ Cassino ■ Orgio - Al 


Baba/Cosmic Radar - Space Invaders 




SOFTWARE P/CP 500 




Em Disco 




— Controle de estoqua • Process, de Texto 


— Contas a Pagar/Receber ■ Cadastro de Clientes 


PROMOQAO PREQOS 




EM ORTN DE MAIO 





REPRESENTANTE: MICRO HOUSE 
Com. Reprent . Ltda. - R. Visconde de Plraja, 547 
s/307 ■ Ipanema • Cc-p. 22.410 - Tel. 294-6246 ou 
atraves da MICROIOEIA ■ Av. Marechal Camara, 
160/1.426 ■ Castelo ■ Rio - Cep. 20.020 - Recados 
pelo BIP J89 • Central 246-4180 




Assistencia Eletronica Ltda. 



t* 



s\* 



OF 



c\* 



>\C» 






ptfff 



Rua da Lapa. 107 - 1.° and. 
Tels.: 222-7137 e 222-2278 
Rio - RJ. 



BIBUOTECA 
DEINFORMATICA 



B0LSA 
DE SOFTWARE 



BUREAU 
DE SERVICOS 



QUALIDADE E 

RESPONSABILIDADE 

A PREQ0S 

REDUZIDOS 



4fe Representante 

WJ1 Credenciado 

diSlTIOC (Micro Computadores) 

3& or «of8 CQftlERDD E fl55E55QRIfl 

Rua Conde de Bonfim, 344/406 
Bl. 1 ■ Tijuca ■ RJ ■ Cep 20520 • 
Tel.: (021) 234-3945 • CP. 241 1 7. 



No Recife, visite 
T E L E V I D E (') 

Lojao de Informatica mais des- 

complicado do pais! 

Micros, perife'ricos. suprimentos. 

Software, Cursos. Livros e Revistas. 

Componentes eletronicos, pecas e 

Som. 



PREQOS ESPECIAIS. 
FINANCIAMENTO PROPRIO 



Compre pessoalmente ou pelo 
Reembolso: 

TELEVIDEO LTDA. 

R. Marques de Herval, 157 

Tel.: (081) 224-8932, 

RECIFE, PE. 



(') Sr. Industrial: distribuimos s/ 
produto nas melhores condi- 
qdes: contatos em S. Paulo (011) 
223-5480. 



PARA-CRIfi 

Temos todos os 

Microcomputadores 

nacionais: 

CP200,300,500,TK85, APII Maxxi. 
Perife'ricos: Impressoras, Gra- 
vadores Suprimentos: Disket- 
tes, Fitas, Papel pi impresso- 
ras. Softs Especialicidos: Mi- 

s cro Id&a, Monk. Micro e Micro 

I Soft 

1 Melhores pregos e 
atendimento. 

< MICRO HOUSE 

Rua Visconde de Plraja, 547 a/307 
Ipanema — Rio de Janeiro — RJ. 
Tela. 294-6248 e 239-3744. 




—HARDWARE- 



—SOFTWARE 

• Jogos e Aplicativos 

• Desenvolvimento de 
Sistemas Proprios 



— CURSOS- 



KI.CBDiW.TE 

SISTEMAS E EOuiPauENTOS 
C0M»UT«CI0N*IS LTDA 



Perifericos para 
Linha Sinclair 
TK-82C, TK-85 
NEZ8000 e CP-200 



Linguagem Basic Com 
aulas praticas 
Apostilas gratis 
Desenvolvimento de 
programas 

— BIREAUX DE 

SERVIQOS 

Administragao 

Contabilidade 

Estoque 

Folha de pagamento 

Etc. 

I— MERCADO DE 

MICROS USADOS— I 

• Agenciamento 

• Compra e Venda 

Rua Buenos Aires, 41 
3° andar — Centra 
CEP 20.070 5 

Rio de Janeiro ? 
Tel. 263-4024 

2- 



que voce acha de proteger seus programas atrave's de um sistema de senhas? 
Ve/a como isso 4 possfvel no DG T- 100 e equipamentos compatfveis 



Programe a senha 
e tchau abelhudos ! 



Muitas vezes, ao escrevermos um 
determinado programa, seria 
otimo se pude'ssemos tornar 

certas linhas invisiveis aos olhos de al- 
guns usuarios. Um bom exemplo seria 
um programa que gerasse uma sequen- 
cia de numeros ou palavras para serem 
descobertas. Em casos como este, escon- 
der do jogador a rotina que gerasse tais 
sequencias seria algo extremamente 
util. 

Outra aplicacfo bastante interessante 
esta ligada a protega"o de programas, e 
uma das formas de protege4os € restrin- 
gindo a possibilidade de execucao dos 
mesmos a um niimero reduzido de usua- 
rios autorizados. A maneira de autorizar 
seria atrave's do conhecimento de uma 
senha (password) que seria solicitada 
pelo programa. Desta forma, o trecho 
em que tal senha fosse gerada deveria ser 
protegido contra usuarios bisbilhoteiros. 
Um exemplo que daremos a seguir aju- 
dara a esclarecer esta segunda situacSo. 

Para que determinadas linhas de seu 
programa (consecutivas ou nao) nao 
possam ser listadas no video, voce deve- 
li obedecer aos seguintes passos: 

1) Digite a linha do programa que voce 
deseja esconder (esta linha devera pos- 
suir menos de 1 15 caracteres). 

2) Liste a linha digitada e verifique se o 
seu conteiido estd correto. 

3) Conte o niimero de caracteres que a 
linha possui, incluindo a numeracao das 
mesmas e os espacos em branco. 



Mario Lui's Terenzi 



4) Tecle EDIT < niimero da linha > 
e passe para o modo de edica"o (digitan- 
do RETURN). Digite entao X para que 
a linha toda seja mostrada e para posi- 
cionar o cursor no final da mesma. 

5) Digite REM seguido do mesmo nii- 
mero de caracteres contados no passo 3 
e some mais cinco. Podem ser digitados 
quaisquer caracteres. Como eles nao po- 
dera"o ser vistos novamente, tome cuida- 
do para entrar com o niimero correto de 
caracteres. 

6) Tecle SHIFT e + (up arrow) simul- 
taneamente para sair do modo de inser- 
cao. 

7) Digite o niimero contado no passo 3 
mais cinco (tal niimero nao aparecera na 
tela quando digitado) e entSo tecle <- 
(backspace). Por exemplo: se voce con- 
tou 33 caracteres, digite 38 + . Isto 
fara" com que o cursor fique posicionado 
imediatamente apds o M do REM. Caso 
isto nSo ocorra, tecle X e volte ao inicio 
deste passo. 

8) Entre novamente com o niimero digi- 
tado no passo 7, seguido de C (observa- 
ca"o: nao aperte RETURN ainda). 

9) Aperte a tecla 
da linha anterior. 



ate" chegar ao final 



10) Agora tecle RETURN. Voce podera 
executar ou listar o programa, mas nao 
conseguira" mais ver a linha desaparecida. 



PROGRAMA EXEMPLO 

Este exemplo mostra a aplicaca"o do 
sistema de senhas citado, alem de escla- 
recer os passos do processo que acaba- 
mos de descrever. Seja o seguinte pro- 
grama : 



10 PRINT "ESTE PROGRAMA E PROTEGIDO" 
20 PRINT "DIGITE A SENHA" 

30 INPUT A$ 

31 B$="SENHA" 

40 IF A$=B$ THEN 70 

50 1=1+1 

60 IF I>2 THEN NEW ELSE 20 

70 PRINT "BOM TRABALHO" 



A senha esta" assinalada na linha 31. 
Se algue'm listar o programa, descobrira 
o segredo imediatamente. E necessario 
sumir com tal linha. Portanto, sigamos 
os passos: 

1) Liste a linha 31. Ela possui 13 carac- 
teres (+5=1 8). 

2) Digite EDIT 31 e RETURN. Voce es- 
ta agora no modo de edicao. Tecle X. 

3) Digite REM 123456789012345678 

(18 caracteres quaisquer). 

4) Digite SHIFT t simultaneamente. 

5) Digite 18 <- 

6) Digite 18 C. 

7) Aperte -«j ate* chegar ao final da li- 
nha anterior. 



8) Digite RETURN e liste o programa. 

Voce" listou todo o programa, exceto 
a linha 31 (que contdm o segredo da se- 
nha). De um RUN e teste o programa. 
Voce vera que tres tentativas erradas 
provocam a sua remocSo da mem6ria 
principal. Desta forma, voce conseguiu 
controlar o programa e regular seu uso. 

£ claro que sempre existem maneiras 
de se burlar o sistema. Por exemplo, se 
voce possuir uma impressora e listar o 
programa, todas as linhas aparecerfo. Ha 
tambem a possibilidade de algue'm des- 
cobrir o niimero da linha desaparecida e 
usar o comando EDIT para ve-la. As ve- 
zes, entSo, 6 necessa'rio sofisticar um 
pouco o mdtodo: podemos exigir mais 
de uma senha ou entSo sumir com va- 
rias linhas do programa. Neste caso, pro- 
cure nao colocar todas as senhas em li- 
nhas consecutivas. 

De qualquer forma, existem mil apli- 
cacOes para o macete que acabamos de 
descrever. £ s6 botar a cabeca para fun- 
cionar. ■ 

m 



Mdrio Luis Terenzi e" Anal isto de Suporte de 
Sistemas do Centro de Computacao da Uni- 
versidade Federal de Minas Gerais e estudante 
do ultimo ano do Bacharelado em Ciincias da 
ComputaqSo da mesma escola. 



Nao pare seu programa 
nem perca a memoria 





Gerador Eletronico Portatil de 200 VA 




GUARDIAN 



O Gerador Eletronico GERATRON 

e a solucao definiuva para 

o problema cie falha na reae 

eleirica. Quando esta faliar, 

GERATRON continuara alimentando 

o sen micro como se nada 

houvesse aconiecido. Chame 

um representanie hoje mesmo. 



■%y Equipa.nentos Eletronicos Ltda. 

ALTA TECNOLOGIA EM ELETRONICA INDUSTRIAL 

RuaDr Gamier. 579 • Rocha • CEP 20971 • RJ • Tels (0211201-0195 261-6458 e 281-3295 • Telex (021) 34016 

• Sao Paulo (01 1) 270-3175 e 241-751 1 • Brasilia (061 1 226-0133 • Salvador (071) 241 -2755 • Recite (0811 221-0142 

• Natal (084) 222-3212 • Belem (091) 222-5122 • Fortaleza (085l 226-0871 • Cuntiba (041) 224-5616 

• Flonanopolis (0482) 23-0491 • Blumenau (0473) 22-6277 • Porto Alegre (0512) 22-5061 



SOFTWARE 

O Comb ustfvel do Computador 



Programas para D 8002, CP 500, DGT 1000, TRS 80, NAJA, JR e outros. 

Temos disponfveis mais de 50 programas para os micros acima e outros de maior porte. 

Consulte-nos. 



TABELADEPREQOS * PROMOCAO ESPECIAL 



Programa 



Contabilidade 

Folha de Pagamento 

Controle de Estoque 

Mala Direta 

Mala Direta c/Ed. Texto 

Contas a pagar/receber 

Tesouraria (C. saldobanca"rio) 

Credia"rio (p/D 8002) 

Admin, de Imoveis 

Editor de Texto 

Controle de Custos 

Arquivo de Processos 

Controle de Livros 

Controle de Cheques 

Biorritimo 

Decisao 

Obstaculo 

Kit Mate mat. c/ 6 progr. 

Jogos Amerc. (Fita c/4) 



Fita 
(Cr$) 



29.487,00 

47.179,00 
35.384,00 

35.384,00 



23.589,00 
29.487,00 
17.692,00 
14.743,00 
14.743,00 
1 1 .794,00 
12.974,00 
12.974,00 
47.179,00 
16.500,00 



Diskete 

(Cr$) 



176.924,00 
70.769,00 

117.949,00 
88.462,00 

147.437,00 
88.462,00 
88.462,00 
88.462,00 

324.361 ,00 



17.794,00 
18.974,00 
18.974,00 
55.179,00 
22.500,00 




• Antes de comprar seu computador solicitenossa assessoria, 
sem compromisso, para ana"lise, implantacao e apoio. 

• Desenvolvemos qualquer tipo de software especffico, de 
acordo com as necessidades de sua empress 

• Descontos para revenda. 

• Atendimento por reembolso 
para todo Brasil. 



a 



na/Qjon 



Av. Rio Branco, 45 gr. 1311 - 
Tel: (021)263-1241 -Riode 



CEP 20090 
Janeiro 
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Esta e uma conversao do programa Uma questao 

de afinidades pt/Mcacfo no nQ 16, edicao de fevereiro/83 

de MICRO SISTEMAS. Neste caso, foi acrescentado 

ma is um dado: a media das afinidades. Se voce tern 

a I gum programa ja publicado em MS convert id o 

para outro equipamento, divida sua experiencia 

com os demais leitores, enviando-o para MICRO 

SISTEMAS/Secao Conversao, Rua Visconde Silva, 25, 

Botafogo, Rio de Janeiro, RJ, CEP 22281. 



Afinidades com o TK 



Marcel Game/eira de Albuquerque 
e Adeildo Ramos — Mace id —AL- 



IO REM "AFINIDADE" 
20 PRINT TAB 10 ; "AFINIDADE" ; AT 
2,0; "DDIGITE SUA DATA DE NASCI 
MENTO: " , , "DIA/MES/ANO" , 

3 INPUT Dl 

4 PRINT Dl;"/" ; 
50 INPUT Ml 

60 PRINT Ml;"/"; 
7 INPUT Al 

80 PRINT Al,, ,, ,"2)DIGITE A DA 
TA DELA (OU DELE) : " , , , "DIA/MES/A 

NO", 

90 IF Ml>=3 THEN GOTO 120 

100 LET M1=M1+12 

110 LET A1=A1-1 

120 LET XL1=INT ( (Ml+1) *30 .6) +1 
NT (Al*365.25)+Dl 

130 INPUT DO 

140 PRINT DO; "/"; 

150 INPUT M0 

160 PRINT M0;"/"; 

170 INPUT A0 

180 PRINT A0 

190 IF M0>=3 THEN GOTO 220 

200 LET M0=M0+12 

210 LET A0=A0-1 



220 LET XL=INT ( (M0+1) *30 . 6) +IN 
T (A0*365.25)+D0 

230 LET XL2=ABS (XL-XLl) 

240 LET K=23 

250 GOSUB 1000 

260 LET M=XL3 

270 PRINT ,, ,, ,,"FISICO > 

" ,INT (XL3*100)/100;" POR CENTO" 

280 LET K=28 

290 GOSUB 1000 

300 LET M=M+XL3 

310 PRINT ,,"EMOCIONAL >",IN 

T (XL3*100)/100;" POR CENTO" 

320 LET K=33 

330 GOSUB 1000 

340 LET M=M+XL3 

350 PRINT ,, "MENTAL > " , IN 

T (XL3*100)/100; M POR CENTO" 

360 PRINT ,,,,,, /'MEDIA ->";INT 

(100*M/3)/100 

370 STOP 
1000 LET A=(XL2/K)-INT (XL2/K) 
1010 LET XL3=ABS ( (K/2-A*K) *2/K) 
*100 
1020 RETURN 
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ATE AGORA VOCE ESCOLHI A 



PELO QUE VIA POR FOR A 

EK2ID& P®E@ BSSOQfillB 



EEKOIOOlElyTEIKORIDENffitt 



MAGNEX 



Apresentado na cor bege 



AMAGNEXmostraaaltatecnologiaqueomicrocomputadorMANAGER I® tem por dentro, para executar com 

eficiencia o trabalho que o espera aqui fora. 



HARDWARE 

• 02 microprocessadores Z80 e 6502 

• Memoria RAM de64KB (250NS), expandivel para 128KB 

• Monitor residente em EPROM de 2KB 

• Interpretador Basic residente em EPROM de 10KB 

• Interfaces para: 

• Monitor de video preto/branco ou fosforo verde (1920 
caracteres) 

• Monitor de video a cores padrao PAL-M e RGB 
analogico 

• Impressora paralela 

• Discos flexfveisde 5 W 

• MODEMS e demais perifericos seriais 

► 06 conectores adicionais para expansao compativeis 

com Apple II* 
» Teclado profissional destacavel 



SOFTWARE 

MX-DOS 

• Compativel com DOS 3.3 do Apple II* 
MAGNOSI® 

• Compativel com CP/M* 

APLICACOES 

• Nas empresas de pequeno porte, e no processamento 
distribuido nas empresas de medio/grande porte em 
aplicacoes nas areas administrativa, financeira, 
comercial, estatisticas, etc. 

• Na area Tecnica-Cientifica, em aplicacoes especificas 
de pesquisa e desenvolvimento. 

'• Para Prof issionais Liberais, como computador 
pessoal. 

• Apple II e CP/M sao marcas registradas de Apple 
Comp. Corp. e Digital Research Corp. - USA. 



Gorontia incondicional de qualidade 



MAGNEX ELETRONICA LTDA. 

Rua Dr. Thyrso Martins, 100 - Tels.: 570-2872 - 549-2232 - Telex: (01 1 ) 4837 DLTD - CEP: 04120 - Vila Mariana - Sao Paulo 
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Curso de 
Assembler - 



X 



N] esta licao vamos continuar a descricao das mstrucoes 
que compOem o grupo de troca, transferencia de 
bloco e pesquisa. 

1 1 - Compara byte e incrementa 
Formato: CPI 

Operacao: Compara urn byte com o Acumulador, incre- 
menta HL e decrementa BC. 



Cddigo Objeto: 



CPI 



— i — i — i — i — i — i — i — 
1110 110 1 



10 10 1 

' I I I I 1 I — 



>ED 



>A1 



Descrigdo: byte contido no endereco de memoria especi- 
ficado pelo conteudo do par de registradores 
HL e comparado com o conteudo do Acumula- 
dor. Se o resultado da comparacao for verdadei- 
ro, a flag Z 6 setada. Caso contrario, ela e resse- 
tada. O par de registradores HL e incrementado 
e o par de registradores BC e decrementado. 



CPI 



A = (HL) 
HL-^ HL + 1 



BC< 



BC - 1 



Z - 
H - 



Ciclos de mdquina (M): 4 
States (T): 16(4,4,3,5) 

Flags afetadas: S - setada se o resultado for negative 
Caso contrario, 6 ressetada; 
setada se A = (HL). Senao, 6 resse- 
tada; 

setada se ocorre um emprdstimo pa- 
ra obit 4; 
P/V - setada se BC-l^O. Senao, 6 resseta- 
da; 
N — setada; 
C — nao afetada. 
exemplo, se o par de registradores HL conte'm 
posicao de memoria 1111H con tern o byte 3BH, o 
Acumulador contem 3BH e o par de registradores BC conte'm 
1H, apos a execucao da instrucao CPI, o par de registradores 
BC contera" 0, o par HL teri 1 1 12H e a flag Z estara no modo 
Z. 



Como 
1111H, a 



Outro exemplo: comparar 80 bytes consecutivos: 



2000 




00100 


BUF1 


EQU 


2000H 


(8UF1 = 2000M 






001 io 


BUF2 


EOU 


3000H 


iBUF2 - 3000H 






00120 




ORG 


7000H 


; ENDERECO P/MONTAR C PROGRAMA 






00130 


tNIT 


Li 


HL.BUFI 


(CARREGA EM HL 2000H 




1 10030 


00140 




LD 


DE.BUF2 


ICARREGA EM DE 3000H 




OlSOOO 


00 ISO 




LD 


BC.BO 


iPESOUlSA 60 BYTES 




IA 


00160 


LOOP 


LD 


A. (DE) 


;A - CONTEUDO DA PCS.HADA FUF. DE 


70OA 


EDA1 


00170 




CPI 




; COMPARA A COM POS.DADA FOR HL 


700C 


200D 


00180 




JR 


N7.ERR0 


(DESVIA SE <DE) I > 1HL) 


700E 


13 


O0190 




INC 


DE 


i INCREMENTA DE 




E20970 


00200 




JP 


PO.LOOP 


IREPETE ATE BC - 


7012 


212070 


00210 




LD 


HL.MDG! 


[HL <- MENSAGEM 1 


7015 


CDA744 


00220 


FIM 


CALL 


4 467H 


[DISPLAY MENSAGEM 


7018 


C32D40 


00230 




JP 


402DH 


[RETORNA AO SISTEMA 






00240 


ERRO 


LD 


HL,M=iG2 


(HL <- MENSAGEM 2 






00250 




JR 


FIM 


[DESVIA PARA DISPLAY 




IF 


00260 


MSGI 


DEFM 


• OK • 


(DEFINE MENSAGEM 1 




03 


00270 




DEFB 


3 


[DEFINE TERMINADOR 




45 


00200 


MSG2 


DEFM 


ERRO - 


(DEFINE MENSAGEM 2 


7027 


03 


00290 




r-EFB 


3 


( DEF I NE TERM I NADOR 


7000 




00300 




END 


INIT 


8 INICIA PROGR. EM INIT 


OOOOO TOTAL 


ERRORS 










34284 TEXT 


AREA 8VTES LE" 


T 







1 2 — Compara um bloco de bytes incrementando 
Formato: CPER 
Operacao: Compara um bloco de bytes com o conteudo 

do Acumulador. 
Cddigo objeto: 



CPIR 



— I — i — I — i — I — • i 
1110 110 1 

—I r— I 1 — I 1 r— 



10 110 1 

I I — I — I — I — I — I— 



>ED 



>B1 



Descrigdo: byte contido no endereco de mem6ria especi- 
ficado pelo conteudo do par de registradores 
HL e comparado com o conteudo do Acumula- 
dor. Se o resultado da comparacao for verdadei- 
ro, a flag Z 6 setada. Caso contrdrio, ela e" resse- 
tada. par de registradores HL 6 incrementado 
e o par de registradores BC e" decrementado. A 
instrucao termina quando o conteudo do par de 
registradores BC 6 zero ou quando o resultado 
da comparacao e verdadeiro. 



CPIR 



A = (HL) 

HL^ HL + 1 

BC^ BC - 1 



Ciclos de mdquina (M): 5 
States (T)'- 21(4,4,3.5,5) 

Flags afetadas: S — setada se o resultado 6 negative 
Senao, e" ressetada; 
Z - setada se A = -(HL). Caso contrario, 

e" ressetada; 
H — setada se ocorre um empre'stimo 

para o bit 4; 
P/V - setada se BC-1=#). Senao, 6 resseta- 
da; 
N - setada; 
C - nao afetada. 
Como exemplo, se o par de registradores HL contem 
1111H, o Acurrfulador (registrador A) contem F3H, o par de 
registradores BC contem 7H e as posicoes de memoria tern os 
conteudos: 
(1111H)-52H 
(1112H)-00H 
(1113H)-F3H 

entao, ap6s a execucao da instrucao CPIR, o conteudo de 
HL sera 1 1114H, o conteudo de BC sera 4H e a flagZ estara 
setada. 

Outro exemplo: comparar 80 bytes consecutivos de memo- 
ria com 3FH. 



3000 




00 1 00 


BUF1 


EQU 


3000H 


7000 




001 10 




ORG 


7000H 


7000 


3E3F 


00 1 20 


INIT 


LD 




7002 


210030 


00130 




LD 


HL . BUF 1 


7005 


015000 


00140 




LD 




7008 


EDB1 


00150 




CPIR 




700A 


2009 


00160 




JR 


NZ.ERRO 


700C 


21IA70 


00170 




LD 


HL.MSG1 


700F 


CD6744 


00180 


■ 7 : n 


CALL 




7012 


C32D40 


00190 




JP 


402DH 


7015 


21 1D70 


00200 


ERRO 


LD 


HL.MSG2 


7018 


1BF5 


00210 




JR 


FIM 


701A 


4F 


00220 


MSG1 


DEFM 




70 1C 


03 


00230 




DEFB 


3 


70 ID 


45 


00240 


(1SS2 


DEFM 


• ERRO - 


7021 


03 


■ ■ :-..'• 




DEFB 


3 


7000 




00260 




END 


INIT 


OOOOV 


TOTAL 


ERRORS 








3442-5 


TEXT 


AREA BYTES LEFT 







iBUFl = 3000H 

[ENDERECO P/MONTAR O PROGRAMA 

I A <- BYTE A SER PESOUISADO 

SCARREGA EM HL 3000H 

[PESQUISA 80 BYTES 

[COMPARA 80 BYTES AC I MA DE BUF 1 

[DESVIA SE NAO EXISTS 

IHL <- MENSAGEM 1 

(DISPLAY MENSAGEM 

[RETORNA AO SISTEMA 

IHL <- MENSAGEM 2 

(DESVIA PARA DISPLAY 

[DEFINE MENSAGEM 1 

(DEFINE TERMINADOR 

(DEFINE MENSAGEM 2 

[DEFINE TERMINADOR 

[INICIA PROGR. EM INIT 



1 3 - Compara byte e decrementa 
Formato: CPD 

Operacao: Compara um byte com o Acumulador e decre- 
menta HL e BC. 
Cddigo objeto: 



CPD 



— i — i — i — i — i — i — r— 
1110 110 1 
— I — I — I — l — I — l — r— 
10 10 10 1 

1 1 1 1 I I L_ 



>ED 



>A9 



Descrigdo: byte contido no endere?o de memoria especi- 
ficado pelo conteudo do par de registradores 
HL e comparado com o conteudo do Acumula- 
dor. Caso a comparacao seja verdadeira, a flag Z 
e setada; caso contra"rio, e ressetada. Entao, os 
pares de registradores HL e BC sao decrementa- 
dos. 



CPD 



Ciclos de mdquina (M):4 

States (T): 16(4,4,3,5) 

Flags afetadas: S - setada, se o resultado e negative 
Senao, 6 ressetada; 
Z - setada se A = (HL). Senao, 6 resse- 
tada; 




H — setada se ocorre um empre'stimo pa- 
ra o bit 4; 
P/V - setada se BC-l^O. Senao, e resseta- 
da; 
N - setada; 
C - nao afetada. 
Como exemplo, se o par de registradores HL conte'm 
1 1 1 1H, a posicao de memdria 1 1 1 1H conte'm 3BH, o Acumu- 
lador contdm 3BH e o par de registradores BC contem 1H, 
apos a execucao da instrucao CPD, o par BC sera igual a zero, 
o par de registradores HL conterd 1 1 10H e a flag Z estard seta- 
da. 

Outro exemplo: comparar 80 bytes consecutivos com 55H: 



3000 




00100 


BUF1 


EQU 


3000H 


[BUF1 - 3000M 


7000 




001 10 




ORG 


7000H 


(ENDERECO P/MONTAR PROGRAMA 


7000 


3E55 


00120 


INIT 


LD 


A.55H 


[A '.- BYTE A SER PESQUISADO 


7002 


210030 


00130 




LD 


HL.BUF1 


[CARREGA EM HL 3000H 


7005 


1 5000 


00140 




LD 


BC.BO 


( PESQUISA 80 BYTES 


7008 


EDA9 


0O1S0 


LOOP 


CPD 




(COMPARA A COM POS.DADA FOR HL 


700A 


280C 


00 1 60 




JR 


Z,OK 


[DESVIA SE EXISTE 


700C 


E20B70 


00170 




JP 


PO.LOOP 


(REPETE SE BC <> 


700F 


212070 


00 ISO 




LD 


HL.MSG2 


(HL <- MENSAGEM 2 


7012 


CD6744 


00190 


FIM 


CALL 


4467H 


[DISPLAY MENSAGEM 


7015 


C32D40 


00200 




JF 


402DH 


[RETORNA AO SISTEMA 


7018 


:ilD70 


00210 


OK 


LD 


HL . MSB 1 


(HL <- MENSAGEM 1 


701B 


!8F5 


00220 




JR 


FIM 


(DESVIA PARA DISPLAY 


70 1 D 


4F 


00230 


MSG1 


DEFM 


• OK ■ 


[DEFINE MENSAGEM 1 


701F 


03 


00240 




DEFE. 


3 


[DEFINE TERMINADOR 


7020 


43 


00250 


MSG2 


DEFM 


• ERRC • 


(DE-1NE MENSAGEM 2 


-".:•■ 


03 


00260 




DEFB 


3 


(DEFINE TERMIflADUR 


7000 




00270 




END 


INIT 


(INICIA D PROGR. EM INIT 


OOOOO TOTAL 


ERRORS 










34398 TEXT 


AREA BV 


E3 LEF 


T 







14 - Compara um bloco de bytes decrementando 
Formato: CPDR 
Operagdo: Compara um bloco de bytes com o conteudo 

do Acumulador. 
Cddigo objeto: 

CPDR 



1 ! T 1 1 1—1 

1110 110 1 


►ED 


10 1110 1 

1 1 1 L_ _1_. _l. 1 




w uv 



Descrigdo: byte contido no endereco de memoria especi- 
ficado pelo conteudo do par de registradores 
HL 6 comparado com o conteudo do Acumula- 
dor. Caso a comparacao seja verdadeira, a flag Z 
e setada. Os pares de registradores HL e BC 
sao decrementados e a instrucao termina quan- 
do o conteudo do par de registradores BC e 
zero ou quando a comparacao e verdadeira 
(A = (HL)). Se BC 6 diferente de zero, a instru- 
cao e repetida. 

CPDR A = (HL) 

HL-^ HL - 1 

BC^ BC - 1 

Ciclos de mdquina (M): 5 
States (X): 21(4,4,3,5,5) 

Flags afetadas: S - setada se o resultado 6 negative 
Senao, € ressetada; 
Z — setada se A = (HL). Senao, 6 resse- 
tada; 
H — setada se ocorre um empre'stimo 

parao bit 4; 
P/V - setada se BC-I^O. Senao, e resseta- 
da; 
N - setada;, 
C — nao afetada. i 
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CURSO DE ASSEMBLER - X 



Como exemplo, se o par de registradores HL contdm 
1 1 18H, o Acumulador contem F3H, o par de registradores BC 
contem 3H e o conteudo das posic5es\ie mem6ria 6 : 
(1118H)-52H 
(1117H)-00H 
(1116H)-F3H 

entao, ap6s a execucao da instrucao CPDR, o conteudo do 
par de registradores HL sera 1115H, o conteudo de BC sera" 
e a flag Z esti setada. 

Outro exemplo: comparar 80 bytes consecutivos com FFH. 



Descrigdo: conteudo do registrador r 6 somado ao con- 
teudo do Acumulador e o resultado 6 carregado 
no proprio Acumulador. O simbolo r identifica 
os registradores A, B, C, D, E, H e L. Qualquer 
opera?ao de soma envolve o Acumulador. 



ADD A,B 

Ciclos de mdquina (M): 1 
States (T): 4 
Flags afetadas: S 



A«- 



A + B 



3000 
70C0 
7000 3EFF 

7002 210030 

7003 015000 
700B EDB9 
700A 2009 
700C 2 1 1 A70 
r.K'f CD6744 
7012 C32D40 
7015 211D70 
7018 1BF5 
701 A tf 
701C 03 

701 D «• 
7021 03 
7000 

00000 TOTAL 
T4427 TEXT 



00100 BUF1 

00110 

00120 INIT 

00130 

00110 

00150 

00160 

00170 

ooiao FIM 

00190 

00200 ERRO 

00210 

00220 MS31 

00230 

00240 MSG2 

002S0 

00260 
ERRORS 
AREA BYTES LEFT 



LD 
JR 

DEFM 
DEFD 
DEFM 
DEFB 
END 



SOOOH 

7000H 
B.OFFH 

IIL.BUF1 

BC.ao 

NZ.ERRO : 

HL.MSG1 I 

4467H ; 

402DH ; 

HL.MSG2 : 

FIM : 

•ai.- : 

3 i 

• ERRO - t 



BUF1 - 300UH 

ENDERECQ F/MONTAR O PROGRAMA 

A - BVTE A SER FESDU1SAD0 

CAHREGA FM HL SOOOH 

PSSQUISA 30 BYTES 

COMPARA BO BYTES ABA 1X3 DE BUF1 

DESVIA SE NAO EX1STE 

HL <- MENSABEM 1 

DISPLAY MENSABEM 

RETORNA AO SISTEMA 

HL • - HENSAGEH 2 

DESVIA PARA DISPLAY 

DEFINE MENSAGEM I 

DEFINE TERMINADOR 

DEFINE MENSAGEM 2 

DEFINE TERMINADOR 

INICIA O PROGR. E.I INIT 



H 



— setada se o resultado i negativo. 
Senao, e" ressetada; 

— setada se o resultado 6 zero. Senao, 
e ressetada; 

— setada se ocorre vai-um do bit 3. 
Senao, e ressetada; 

P/V — setada se ocorre um overflow. Se- 
nao, 6 ressetada; 

N — ressetada; 

C — setada se ocorre vai-um do bit 7. 
Senao, 6 ressetada. 
Outro exemplo: somar 200 com 17: 



GRUPO DE ARITMETICA E L6GICA 

pr6ximo grupo de instrucoes do microprocessador Z80 e" 

grupo de aritme'tica e logica de 8 bits. Este grupo executa as 
seguintes funcoes: 

— Adicao e subtracao 

— Operacoes 16gicas 

— Comparacao 

— Incrementos 

— Decrementos 

As instrucoes que compSem este grupo sao as seguintes: 

1 - Soma Acumulador com registrador 

Formato: ADD A,r 

Operacao: Soma o conteudo de um registrador de 8 bits 

com o Acumulador. 
Codigo objeto: 

ADD A,r 



LD 


A, 200 


LD 


D,17 


ADD 


A,D 



conteudo do Acumulador apos a execucao do programa 
sera 217, enquanto 17 sera o conteudo do registrador D. 
2 — Soma Acumulador com constante 

Formato: ADD A,n 

Operacao: Soma o conteudo do Acumulador com uma 
constante. 

Cddigo objeto: 

ADD A,n 



— i — i — i — i — i — i — i — 
110 110 



H — I — H 



J L 



— i — I — I — | — i — i — r— 
1 r r r 

L_J 1 1 1 1 1— 



ADD A, 5 



ADD A,L 



— i — i — I — I — I — I — I — 
110 110 

—I — I — I — I — I — h— +— 

10 1 

_1 I I — I — I — l—l — 



>C6 



>05 



— i — I — I — i — I — i — r— 
10 10 1 

■ ■ I I — I — I — I— 



>85 



Descrigdo: inteiro n e somado ao conteudo do Acumu- 
lador e o resultado 6 carregado no Acumulador. 



000 para rrr = registrador B 

001 para rrr = registrador C 
010 para rrr = registrador D 
Oil para rrr = registrador E 

100 para rrr = registrador H 

101 para rrr = registrador L 
111 para rrr = registrador A 



ADD A,n 



A-4- 



A + n 



96 



Ciclos de mdquina (M): 2 
States W: 7(4,3) 

Flags afetadas: S - setada se o resultado e" negativo. 
Senao, 6 ressetada; 
Z - setada se o resultado e zero. Senao, 

e ressetada; 
H — setada se ocorre vai-um do bit 3. 

Senao, e ressetada; 
P/V— setadase ocorre um overflow. Senao, » 
ressetadfi ; S& 
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A geracao def initiva 6 sempre a proxima. 










Voce so descobre o quanto precisa de urn Micro-Coin- 
putador JRda Sysdata depots qua o conheca de perto. 

Voce vai tar certaza de que fez um otimo rtegocio ao 
adquirf-to assirn que o colocar na sua empresa ou na sua 
casa. 

O JR da Sysdata 6 rapido, e versatJI, 6 compacto. 
APUCAipOES: 

Contabllidade, controle de contas a pagar, controie de 
contas a receber, folha de pagamento r controle de esto- 
que, controle de clientes , relatono de ciientes, mala direta, 
calculos de orcamentos financeiros^controie de processos 
industrials, calculos da engennaria, calculos de estatfsti- 
cas, funcoes matematfcas, funcoes logicas em cadeia de 
caracteres (STRINGS!, graficos, jogos animados, progra- 
mas educacionats. 
O JR PERMIT E AINDA: 

O acessoa grandessisternas de computacao, a comun'i- 
cacao entre os departamentos de Empresa, efetuar pro- 
gramas especificos para cada Empresa. 

E, como se nao bastasse, ele a o Mlcro-Computador de 
nwmr preco do rmrcado. 

Com todas as qua lidades que tern, o JR da Sysdata nem 
precisava ser tao economico. Mas e. 

Af inal, ete e o mais completo Micro-Computador de sua 
geracao. 

Inclusive no preco. 

Voce pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 



Rub Jorge Duprat Figueir&io, 647 ■ CEP 04361 
I |j iii Vila Santa Catarina - Sao Paulo - SP 
'criKrdrcsrai Fonts: 5421 122 - S31-0390 - 531-0410 
Ttlex (011) 23579 



REVENDEDORES: SAO PAULO: Capital AOData ■ 864.8200- ADP System - 227-6100- BUcker = 881-7995 • Compushop = 212-9004/210-0187 -Compute - 
852-8290/257-3952 - Computerland - 258-3954/1573 ■ Foto L*o - 35-7131 • Guadra - 289-9051 • Irtterfee* - 852-5603 - Lama - 210-5929 - Mappin * 
258-441 1/258-731 1/9358 Microti ■ 881-0022 -Micnwhop = 8625603- Miprowc * 289-4941 Plamel = 543-9553- Runner* = 88-3779 Sbcco = 814-0598- 
Servimec - 222-1 51 1 - Ststemac ■ 282-6609 Sos - 66 -7656 - Camphua - Computer Houbo > (01921 852-5855 - Microlok ■ 40192* 32-4445 S*o Jom* do Rk> 
Pwte - Compusvs • (0161635-11 95 -Sono - 1016)320600 - Mogl Giwpu - Guapumsq ■ 10 19J 26 1-0238 - TaUbat* - Ensicom ■ (0122(33-2252 PERNAMBUCO- 
RkHi Zto&oa = (080)241 T 162 1*241 -1149 GOlAS-Oolanlaj Caw do MicocofnpuiadOr = (0821 2 23- 1165- Gnjpom (0621 225 8226 JMATOGROSSO DOS Ui. - 
CampoOranda DRL = |06 7 > 382-6487- Video Camputadores = (0871321-4220 BRASILIA- Capital -Compushow - (0611273-2128 -Digitec = 4061)225-4534- 
RIOOE JANEIRO -Capital Clap ■■ (021 1 288-0734/284 5649 - Computiquo - (021 1267-1 093 -Kristian - (0211 252-9057 -Micromaq- (021 1222-6088 -Patropo- 
Um ■ Foto Otjcb ^ [0242142-1393^43 6120 PARANA - Londrina ■ ShopCompgtar - 40432) 23 9674 Umuarama . CBMComarclal = 104461 23 2233 Curltib. 
Micro System = (041 ) 232-3533 -PontaOrosaa Grupo Data Memory = 40422)24-6191 - PAflAiBA'Joao Paaaoa Medusa =-^0831221 -6743- CE AR A - Fortalax* 
Siscomp n (0851 244-4691 - MINAS GERAIS - Bato Horiionta - Compucity - [0311 226-6336 - Kemttron - (031 1 225-0644 - Pr6 Inlomiattca - [0311 337-8792 - 
SANTA CATARINA - BhjmanMi Protcsul - (04731 22 3848 Floriandpolto ■ C»*l«0 = 10482) 22-6933 Infowc = (0482) 23-4777 - RIO GRANDE DO SUL ■ Nowo 
HamfeurBO Mcromega = (0512193-4721 - Porto Alagra Advancirvfl = [0512J 26-1 194/26-0194 -Digital = 40512140 l998i'24-14i l Micro** = (0512122-9782- 
Srslemalica = (05121 21 -0732/21-0835 



CURSO DE ASSEMBLER - X 



N - ressetada; 

C — setada se ocorre vai-um do bit 7. Se- 
na*o. € ressetada. 
Como exemplo t para somar 200 com 17, tcremos: 

A t 200 



LD 
ADD 



A, 17 



O cootetido do acumulador apos a execucffo do programs 
sera" 217. 
3 — Soma Acumulador com mem6ria 

Format o: ADD A t (HL) 

Operaqao: Soma o Acumulador com o conteudo do ende- 
re$o de memoria apontado pelo par de registradores HL. 

Cddigo objeto: 



ADD a, (ill) 



—i — i — r — i — i—i — i — 
10 110 

■ -- ■ — 



>66 



Descriqdo: byte do endereco de memdria especificado 
pelo conteudo do par de registradores HL ^ so- 
mado ao conteudo do Acumulador e o resulta- 
do t carregado no Acumulador. 



Z - setada se o resultado 6 zero. SenSo, 

6 ressetada; 
H — setada se ocorre vai-um do bit 3. 

Senao, e" ressetada; 
P/V — setada se ocorre um overflow. Se- 

na~o 5 6 ressetada; 
N — ressetada; 

C — setada se ocorre vai-um do bit 7, 
Senao, i ressetada. 
Como exemplo, se o conteudo do Acumulador i AOH, o 
conteudo do par de registradores HL 6 232 3H e o conteiido da 
posicJo de memdria 2323H i o byte OSH, apos a execucffo da 
instracao ADD A, (HL), o conteudo do Acumulador sera* 
ASH, o conteudo do par de registradores HL sera' 2323H e o 
conteudo da posicao 2323H sera" 08H. 
4 — Soma Acumulador com memdria indexada (IX) 
Formatot ADD A,(Dt+d) 

Operaqao: Soma o Acumulador com o conteudo do ende- 
reco de memoria apontado pelo registrador 
indexador IX mais o deslocamento explicit© na 
instracao. 



Cddigo objeto: 



ADD A f (IX+d) 



ADO 



A f (ML> 



A 4- 



A + (HL) 



Ciclot de mdquina (M): 2 
States (T}: 7(43) 

Flags afetadas: S - setada se o resultado e" negativo. 
Senao.e" ressetada; 



— r — i — r— i — i — r i 
110 1110 1 

-H I I — I — r— I — I— 



10 1 10 

—4 — I — I I I 1 I 



_l I— I I I I — u 



r 
I 




BIBLIOTECA BRASILEIRA DE SOFTWARE 




Diversdes 
e Jogos 
Pessoais 



que voce pode retirar 
e levar para 
sua casa ou 
empresa para 
usa-lo a vontade. 



Uso Caseiro 

Comerciais 

Graficos 

00 originais 

Para os principals 
micros do mercado: 
TK82, TK83, TK85, 
TIMEX/SINCLAIR, 

CP200, CP3G0, CP600 4 



Educacionais 

Professionals 

Cientificos 



TRS80 Mod. Ill, 
UNITRON, MAXXI, 

fVHcroengenho, 
Apple e Similares, 
Sistema 700 e Superbrain 






Voce pod* consultar passu almunta ot cutalogos de Software ou soHcitar inform 096** pa to Correio. - 

Av. Brig.Tdoiro Faria Lima, 1390 - 8." Andar - Cj. 82 CEP 01452 - Tola.: 101 1 I 814-0682, 813-8407 a 210-1257 - Sto Paulo - SP 



I/O mno OVTvlir^^lF TotalWare e ao mesmo tempo hardware e software, 

Vdil I KJ%> G/vLJII wCH ■ equipamento e oportunidade, servico e confiabilidade, 
programa e consulta, atendimento e novos produtos, entim, um componeme novo e indispensavel 
para o seu microcomputador. 

TotalWare e uma exclusividade CompuShop, a loja especializada em microcomputador es 
onde voce encontra software, perifericos, acessorios, a mais eompleta linha de Hvros e revistas 
nacionais e importados bem como diskettes e formularios. alem de cursos e assistencia 
tecniea permanente, Tudo a precos especialmente programados* 

Na CompuShop a preocupacao e f azer com que voce tenha 
microcomputador certo, de acordo com as suas necessidades. ^ — -^ 

Mas apenas isso nao basta. Foi por isso que a CompuShop f**^ *i £^| J 

criou toda uma infra- estrutura de apoio. x*OI 1 lIDl JOI lO|3 

Foi por isso que criou TotalWare. [ ^ * I 

Rua Dr. Mario Ferraz. 37 - CEP 01453 -Sao Paulo - SP - Tels : tOi 1 > 210-0187/2 12-9004/815-0099 - Telex (OU ) 36611 BYTE BR 

Av. Pres. Juscelino Kubitschek t 889 - CEP 04543 - Sao Paulo - 5P - Tels.: (Oil ) 64-2806/852-7149. 
Estacionamento propria Abertas die Segunda a Sexla das 9 as 19 horas e aos Sabados das 9 as 14 boras. 



CURSO DE ASSEMBLER -X 



ADD 



A,(IX+5) 



— I — i — i — I — i — i — i — 
110 1110 1 

— I — I — I — I — I — I — h- 



10 110 

— I 1 — h-H 1 — I 1 — 



10 1 

I I I I I — I — I — 



>DD 



>86 



>05 



Descrigdo: conteudo do registrador indexador IX 6 so- 
mado ao deslocamento d em formato de com- 
plement de 2 para determinar o endereco de 
mem6ria. conteudo da posicao de memoria 6 
somado ao conteudo do Acumulador e o resul- 
tado e carregado no Acumulador. 



Como exemplo, se o conteudo do Acumulador e 1 1H, o re- 
gistrador indexador con tern 1000H e o conteudo da posicao de 
memoria 1005H 6 22H, apos a execucao da instrucao ADD A, 
(IX+5), o conteudo do Acumulador sera" 33H e o conteudo da 
posicao de mem6ria 1005H serd 22H. 
5 — Soma Acumulador com memoria indexada (IY) 
Formato: ADD A,(IY+d) 

Operacao: Soma o Acumulador com o conteudo do ende- 
reco de memoria apontado pelo registrador in- 
dexador IY mais o deslocamento explicito na 
instrucao. 
Codigo objeto: 



ADD 



A,(IX+d) 



A«- 



A + (IX+d) 



Ciclos de mdquina (M): 5 
States (T): 19(4,4.3,5,3) 

Flags afetadas: S - setada se o resultado 6 negative 
Senao, e ressetada; 
Z — setada se o resultado e zero. Senao, 

e ressetada; 
H — setada se ocorre vai-um do bit 3. 

Senao, 6 ressetada; 
P/V — setada se ocorre um overflow. Se- 
nao, e" ressetada; 
N - ressetada; 

C - setada se ocorre vai-um do bit 7. 
Senao, e" ressetada. 



CHEGA 

DE 
PROBLEMAS 

Use Tig Loader ( 



f 



APENAS: CR$ 15.000,00 



TIG LOADER possibilita: 

• a localizagao do otimo volume do gravador, 
facjlitandoa operagao LOAD. 

• DUPLICARqualquer programa. mesmo aque 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operagoes LOAD, SAVE ou 
DUPLICACAO atraves de fone. 

• filtrar as interlerencias eletricas de baixa 
frequencia, que sao a causa da maioria 
dos problemas de LOAD/SAVE. 



APLICATIVOS PARA TK E CP 200 

TIG-SCREEN: vinte e sete rotinas de vi'deo. para incrementar seus programas' 
Inversao de vi'deo, moldura. arquivo de imagens. rotacao, scroll em quatro 
diregoes, etc... eleitos visuais incn'veis! Em linguagem de maquina. ocupa 
1,3Kb. ficando protegido no RAMTOP, depois e so utiliza to onde quizer! 
P/16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP: coloque. em seus programas em BASIC, a velocidade de 

codigo de maquina. Rodeos na forma COMPILADA! Simples de usar. 

e s6 carregar ou digitar o seu programa em BASIC e depois usar 

o TIG-COMP. Pronto' Voce tera o seu programa em linguagem de maquina em 

instantes. 

P/16K Com manual explicativo Cr$ 15.000.00 

TIG-SPEED: uma combinagao de soft e hardware, permitindo uma transferencia 
de dados micro/cassete de 4.200 bauds. Voce podera carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a funcao VERIFY. Facilimo de 
operar, compoesede cassete, interface e manual explicativo. 
P/ 1 6 e 48K Prego sob consulta. 



Envie seu pedido • cheque nominal cruzado 
Prazo de entrega: 1 S dias 

Despesas postais inclui'das nos pregos 

AtendemcM jomente por carta 



<":\|=?.'7 TIGRE COM. DE EQUIP. P/ COMPUTADORES LTDA. 
|««? >ft| Rua Correia Galvao. 224 
Akv^jS CEP 01547 Sao Paulo - SP 



ADD A,(IY+d) 



— I — i — | — i — i — l — l — 
1111110 1 



—I 1 1 1 1 1 r— 

10 1 10 

— \ hH 1 1 1 ►— 



J I l I L 



ADD 



A,(IY+13) 

X 



1111110 1 

-H — I — I — I — I — I — h- 



10 1 10 

-H 1 1 1 1 1 1— 



1 10 1 

L_l I I I I 1 — 



> FD 



> 86 



> OD 



Descrigdo: conteudo do registrador indexador IY e" so- 
mado ao deslocamento d em formato de com- 
plement de 2 para determinar o endereco de 
mem6ria. conteudo da posicao de memoria 6 
somado ao conteudo do Acumulador e o resul- 
tado e carregado no Acumulador. 



ADD 



A,(IY+d) 



A4 



A + (IY+d) 



Ciclos de mdquina (M): 5 
States (T): 19(4,4,3,5,3) 

Flags afetadas: S - setada se o resultado 6 negative 
Senao, e ressetada; 
Z — setada se o resultado 6 zero. Senao, 

€ ressetada; 
H — setada se ocorre vai-um do bit 3. Se- 
nao, e" ressetada; 
P/V - setada se ocorre um overflow. Se- 
nao, 6 ressetada; 
N - ressetada; 

C — setada se ocorre vai-um do bit 7. 
Senao, 6 ressetada. 
Como exemplo, se o conteudo do Acumulador e 11H, o 
conteudo do par de registradores IY € 1000H e o conteudo da 
posi?ao de memoria 1008H e 22H, apos a instrucao ADD A, 
(IY+8), o conteudo do Acumulador sera" 33H e o conteudo da 
posicao de mem6ria 1008H sera" 22H. 

Ate" a proxima aula. S 



Amaury Correa de Almeida Moraes Junior 6 formado pelo curso de 
Ana'iise de Sistemas da FASP, tendo feito diversos cursos de aperfeifoa- 
mento nas ireas de Eletrdnica Digital e Microprocessadores. 
Amaury trabalha como Analista de Sistemas na PRODESP, na 6rea de 
mini/microcomputadores, e presta consul tori a a empresas para a imp/an- 
tacao de sistemas de microcomputadores. 
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O micro NAJA foi desenvolvido utilizando os mais modernos padroes de arquitetura de Microcomputador, 

atingindo uma ampfa faixa, desde os computadores pessoais ati os utiiizados em empresas 

de pequeno e m4dio porte. Uma de suas grand es vantagens & a sua versatiiidade t ou seja t vocS poderi 

adquiri-to na sua versio mais simp/es, podendo voce mesmo expandi-h a medida de suas necessidades, 

a um baixo custo 

CARACTERl'STiCAS TtCNICAS 

• 48 K bytes de memdria RAM 

• 16K bytes de memdria ROM 

• Clock de 3,6 MHz ou 2, 1 MHz comutado por Soft 
» Safda para impressora parale/a 

• 6 conectores para expansao no proprio gabinete 

• Microprocessador Z-8QA 

• Video de 16 linhas por 64 ou 32 colunas 

• interface de cassete para 1.500 ou 500 BPS 

• Linguagem Basic na ROM do sistema 

• Software compatfvei com TRS-80 mod. ft/ 

ACESSORtOS 

• Monitor de video de 12" verde profissionai 

• In terface para 4 unidades de disco de 5 1/4" de dup/a dens. 

• Unidade de disco face simpfes ou dupla 

• interface para 4 MHz de Clock 




HBB7 COI 

cm 'Clock 0E6mz 

UHimDEDEDISC0DE8" 

•VIDEOS CORES 
•SiriTETIZFIOOROEVOt 



winmn l™. 




Av. Contorno, 6048 - Savassi - Fone: 225-0644 
Telex- (03V 3074- KEMI-BR Beio Horizonte-MG 



Hi um ano atras a Audio descobriu que nem s6 de som e imagem vive a industria 
eletronica mundial... e inaugurou um departamento de Informa'tica 



NOVO CP 300 PROLOGICA. 



Audiodata : o espaco dos micros 



"S 



Audiodata nasceu da constata- 
c£o de que a Infonnatica e um 
campo florescente no mundo 



todo. microcomputador 6 hoje uma 
necessidade e nao uma mania como tan- 
tas outras que aparecem. Por isso fize- 
mos questfo de nos tomar especia- 
listas no assunto. Hoje a Audio nao 6 
mais conhecida apenas pelas areas de 
som e video; eia e altamente especializa- 
da em microcomputadores, software, 
perife"ricos e suprimentos." 

£ assim que Eduardo Guaycuru, Di- 
retor de Informa'tica da Audio, uma em- 
presa paulista tradicional no mercado de 
aparelhos de som e imagem, justiflcou a 
inauguracao, hi um ano atras, de um de- 
partamento especializado em Informdti- 
ca : o Audiodata. Antes de inaugurar este 
novo ramo da empresa, Eduardo Guay- 
curu viajou para os Estados Unidos, on- 
de permaneceu, durante um ano e meio, 
realizando estudos e pesquisas sob're o 
mercado de micros norte-americano. 

ORIENTAgAO 

Na Audiodata o cliente encontra 
orientacSo te'cnica na compra do micro- 
computador e do software adequados a 
sua real necessidade. Em um amplo 
show-room per mane cem em exposicao 
equipamentos da Prol6gica, Digitus, Mi- 
crodigital, Poly max, Dismac e Spectrum; 
impressoras da Elebra e da Elgin. A loja 
comercializa, am da , disquetes, fitas para 
impressora, fitas cassete, ale'm de diver- 
sas re vi st as est range ir as especializadas 
em Informa'tica. 

A linha de software inclui pacotes 
importados, programas desenvolvidos 
pelas software-houses nacionais e pela 
propria Audiodata. "Hoje temos os nos- 
sos programas sendo utilizados pela Mo- 
nark Turismo, no controle de passagens; 
Escola Pentagono, ajudando criancas no 
aprendizado de linguagem BASIC; Pre- 
dial Rudggiero, na administrate de 
im6veis; Fiorucci, no controle de esto- 
que ; e a pr6pria Audio, em todos os seus 

102 




Na Audio o micro recebeu um espaco s6 para ele, para o entusiasmo, 

principalmente , de adolescentes e criancas. 



departamentos, com as mais diversas 
modalidades de utilizacfo", afirma 
Eduardo. 

Todos os produtos comercializados 
pela Audiodata podem ser adquiridos 
por financiamento direto da prdpria lo- 
ja, atrav^s de financeira ou por agenda 
bancana. Outras formas de comerciali- 
zagao sao o leasing e um consorcio ad- 
ministrado pela Audio-Brasilinvest. 

ALUGUEL DE EQUIPAMENTOS 

"Quando um cliente compra um pro- 
duto nosso, por exemplo um micro- 
computador, e logo em seguida esse 
equipamento apresenta um defeito, n6s 
prontamente o trocamos por outro. Se, 
ao invds disso, o micro vier a apresentar 
problemas apos um pen'odo maior de 
tempo, n6s alugamos outro micro e o 
software que for necessano, ate* que o 
equipamento seja consertado. A ma- 
quina alugada podera ser usada na pro- 
pria loja, no escrit6rio ou na empresa. 
E um novo tipo de garantia que coloca- 
mos a disposicfo do cliente", esclarece 
Eduardo Guaycuru. 

Em relacfo ao movimento de clientes 
na Audiodata, Eduardo Guaycuru obser- 
vou, com certa surpresa, que 6 grande o 



numero de criancas que frequentam a 
loja trazidas pelos pais que querem in- 
troduzi-las no mundo da Informitica, 
diante do grande entusiasmo que estas 
maquinas despertam na classe infantil. 
"Vemos tamWm proprietirios de pe- 
quenas e me'dias empresas que ja sentem 
a necessidade do micro e ate* funciond- 
rios isolados, que precisam agilizar seus 
trabalhos, talvez como forma de garantir 
o emprego gracas a um maior rendimen- 
to". 

Eduardo Guaycuru declarou ainda 
existir um certo preconceito com rela- 
gao as lojas que comercializam outros 
tipos de produtos junto aos de Informi- 
tica. "Na"o existem lojas incapacitadas 
para comercializar equipamentos de In- 
formitica"; diz ele, "s6 porque tambem 
vendem outros produtos. nosso de- 
partamento 6 altamente especializado". 

A Audiodata foi implantada nas seis 
lojas da Audio, cinco em Sa"o Paulo e 
uma em Sab Bernardo do Campo. As 
tres principais lojas estao localizadas na 
Av. Estados Unidos, 609; na Rua 24 de 
Maio, 196 e na Av. Morumbi, 1089. 



Texto : Claudia Salles Ramalho 
Foto : Nelson Jurno 



MICRO SISTEMAS, novembro/83 



Opequeno 
grande micro. 

Agora, na hora de escolher entre um 
microcomputador pessoal simples, de feci I 
manejo e um sofisticado microcomputador 
professional, voc§ pode ficar com os dois. 
Porque chegou o novo CP 300 Proldgica. 
novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele \k nasceu com 64 
kbytes de memoria 
*^v interna com 
" possibilidade de 
expansao de memo- 
ria externa para ate 
quase 1 megabyte. 
E tern um teclado profissional, 
que da" ao CP 300 uma versatilidade incn'vel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 



64 K 



O u n ico na sua faixa que jd 
nasce com 64 kbytes de memoria. 




Pode ser 
acoplado a u 
impressora. 






CompatiVel com 
programas em lita 

cassete ou em disco. 



Pode ser ligado ao seiraparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. 
Com o CP 300 vocG pode 
lazer conexoes telefonicas 
para coleta de dados 
se utilizar 
deuma 
impressora 

e ainda dispor de todos 
os programas extstentes 
para o CP 500 ou o 
JSSS, TRS-80 americano. E o que e melhor: 
' voc§ estard apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 
CP 300 Proldgica. 

0s outros nao mmm ppoLOGICA 
fazem o que ele faz. j m microcomputador^ 
pelo prego que mMM 
ele cobra. 



PermJte 



Pode ser ligado 

a um televisor comum 
ou a um soflstlcado 
terminal de video. 



RESlfiVAD^ ^ 



Eflo'LuiCiilojSHrA 1KB Sf 
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Solicrte 
demonstracte 
no* principarift 
magazines. 
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PERSONAL COMPUTE 

TK83 
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) Personal Computer que 
ensinou computacao para 
)ais de 2 mi I hoes de pessoas. 



< sucesso do novo MicrodigitalJK 83 es fo no sua facihdade d L 
operocoo mois de 2* milhoes de p&$soas em fodo o mundo 
aprenderom o resofver prob'emas; monfor progrqimos c veneer 
jogov mre/rgentes usando esfe eqiiipomenfo. 

1 Efe frobofho com o Lmguagent.Bo&ic. a mois rcjprda de aprene 
J?ode ter sue merji6na expandiddote' 64 Ke ser Jigado a umo 
jfmpressoro efefrtp -sens/ft vo- 

Tem umo guGnf idade enormf de programas di'spont veis no 
mercodo e pod* tomb-em ser usddo corn uni vcrdpdeiro fliperama de 
jogos eletrdnic&s 

Procure ja p novo Microdigitol TK 83 

t a iniciac$o mais complete que voce pode fqzer no mundo do, 
compo'at'do.j' 
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